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ABSTRAC™ 


ABSTRACT 


PROGRAM DETUD WEASURES THE TINE REQUIRED AND Gap 
SIZES} PRODUCED BY THE THO2/TUIG MAGTAPE 
DRIVE/SLAVE, 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
TIME DELAYS, AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE, 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE, 


DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR, IF THE ERROR I8 DATA RELATED( PARITY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS, 


IF THE TIME CHECK Ig OUT OF RANGE, IT Is PRINTED 
AS AN OUT OF RANGE ERROR, 


Cl 


4 


\ 
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CHAPTER 1 
REQUIREMENTS 


PDP-11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 TM14/THOQ 
CONTROLLER/MAGTAPE STATIONS, 


®e@PROGRAM CAN BE RUN OW A PROCESSOR THAT DOES NOT HAVE A HARDWARE SWITCCH REGISTER, 


A SOFTWARE SWITCH REGISTER (SWREG) LOC, 176 I8 AUTOMATICALLY SELECTEO(REFER 10 
CHAPTER 3,FOR DESCRIPTION OF HOW TO DYNAMICALLY LOAD L0C,176)e00 


1,1 OPTIONAL EQUIPMENT USED 
i, NONE 


1,2 STORAGE 
PROGRAM LOADS AND RUNS IN THE FIRST 4K OF MEMORY, 


1,3 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


MAINDECeiieDZTUC CONTROL LOGIC TEST 
MAINDECeiieDZTUB BASIC FUNCTION TEST 


SEQ 9004 


DI 
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LOADING AND STARTING PROCEDURE 


CHAPTER 2 
LOADING AND STARTING PROCEDURE 


THE PROCEDURE 18 AS FOLLOWS: 


LOAD PROGRAM USING THE ABSOLUTE LOADER 
LOAD ADDRESS = 200 

SET OPERATING SWITCHES 

PRESS START 


@eeIF THE SOFTWARE SWITCH REGISTER 18 USED THEN THE PROGRAM WILL TYPE SWREXXXXXX NEWs 
THIS WILL ALLOW LOC, 176 TO BE CHANGED BEFORE THE START OF THE TESTING, (REFER TO CHAPTER 3 FOR OpTIONs) 


PROGRAM WILL REQUEST DRIVE (TMO92) AND SLAVE (TU16) NUMBERS TO BE 
TESTED, TYPE ORIVE/SLAVE NUMBERS WITH A COMMA (,) BETWEEN EACH 
ORIVE/SLAVE TO BE TESTED, 


REQUESTS FOR TAPE SPEED TESTS AND WRZ ONLY MODE WILL BE MADE, 

RESPONSE TO TAPE SPEED ONLY REQUEST WITH A ONE (1) WILL CAUSE 

THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY, THIS I8 THE ONLY WAY 

TO TEST TAPE SPEED, 

WRE OWLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BpI DATA TIME TEST, 
TYPE CONTROL U (°U) TO DELETE LINE TYPED OR aRuBOUT TO DELETE LAst 
CHARACTER(8), 


PROGRAM WILL PUBLISH TIMES REQUIRED AND REPORT ERRORS, 


2,1 ACTi1 OPERATION 


IF THE PROGRAM I6 RUN IN QUICK VERIFY MODE, FUNCTION TESTS ARE NOT 
ITERATED, 


E | 
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SWITCH SETTINGS ; : 


CHAPTER 3 
SNITCH SETTINGS 


If THE OZJAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER I8 USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER, 
If THE HARDWARE SWITCH REGISTER DOES NOT EXIsT OR IF OWE DOES 
AND If CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC, 176) I8 USED, 


CONTROLS 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC, 176) FROM THE TTY, THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) TYPE CONTROL G <°G>) THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC, 176 AT SELECTED POINTS WITHIN THE PROGRAM, 


2) THE MACHINE WILL THEN TYPES SWREXXXXXXWEWe (XXXXXX I8 THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER,) 


3) AFTER THE °°NEWs°* HAS BEEN TYPED THEN THE OPERATOR CAN DO OWE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC, 176 FOLLOWED BY A <CR>, 
(ONLY NUMBERS BETWEEN Ge7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> I6 THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED, 


8) IF A CONTROL U <°U> 18 DEPRESSED THEN THE PROGRAM WILL SEND yOu 
BACK TO STEP 2, 


F| 





awis 
(160000) 


awi4 
(6400080) 


wid 
(020608) 
Wii 
(8004000) 


swie 
(802600) 


ses 
(001800) 

PT 
(000200) 


B46 
(6001066) 


HALT ON ERROR 


LOOP SUBTEST 


INHIBIT ERROR 
TYPEOUT 


INHIBIT SUBe 


TEst ITERATION TO 


InHIOIT 
FUNCTION TIME 
PUBLICATION 


RING BELL 
OW ERROR 


HALT AFTER 
SELECTED TEST 


CONTINUOUS 
CYCLE 


TEST SELECT 


THIS SWITCH WHEN SET WILL HALT THE 
PROCESSOR WHEN AN ERROR 168 DETECTED, 
TRE PCo2 AND PEW AT THE TINE OF THE 
ERROR 18 STORED OW THE STACK, PRESSING 
CONTINUE WILL CAUSE THE ERROR TO BE 
TYPED (IF SELECTED) AND FURTHER TESTING 
RESUMED, 


THIS SWITCH WHEN SET LOOPS THE CURRENT 
SUBTEST REGARDLESS OF ERROR CONDITION, 


THIS SWITCH WHEN SET INHIBITS ERAOR 
TYPEOUT, 


THIS SWITCH WHEN sET CAUSEs EACH suBTEstT 
BE EXECUTED ONLY ONCE, (INITIAL 
STARTUP ONLY), 


THIS SWITCH WHEN SET WILL INHIBIT THE 
PRINTING OF THE FUNCTION TIMES, (SEE 
CHAPTER 6,) 


THIS SWITCH WHEN SET WILL RING THE BELL 
ON THE TTY WHEN AN ERROR I8 DETECTED, 


THIS SWITCH WHEN SET WILL CAUSE THE 
PROGRAM TO HALT AFTER THE TEST SELECTED 
IN SWOSesuee 18 EXECUTED, 


THIS SWITCH WHEN SET WILL CAUSE THE 
PROGRAM TO AUN CONTINUOUSLY UNTIL 
STOPPED BY THE OPERATOR, 


THE PROGRAM WILL HALT AFTER EXECUTION 
OF THE TEST SELECTED WHEN 8WO7 I8 SET, 


8fQ 0007 


Gl 
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ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES, 


4,1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE; PARITY ERROR) ARE PRINTED Ag sorr ERRORS 
AND HAVE WO EFFECT ON TIME, 
TEST © XXXXXX DEVICE ERROR 


csi WE BR rc C82 08 ERi 
AAAAAA BBBBBB CCCCCC DDDDDD EELEEE FFFFFF GGGGGG 


XXXXXX © TEST NUMBER 
AAAAAACTIIIZI s CONTENTS OF TAPE REGISTER 1724400172456 


4,2 ERROR TYPEOUT FORMAT (FUNCTION TINE OUT OF RANGE) 


TEST © XXXXXX OUT OF RANGE ERROR 
RANGE © <AAAAAASBBBBBB> ACTUAL = cccccc 


H) 
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CHAPTER §$ 
SUBROUTINE ABSTRACTS 


S,1 SCOPE 
THE SCOPE ROUTINE Ig CALLED BY THE gCOpE (EMT) INSTRUCTION AT THE 
START OF EACH SUBTEST, THE SCOPE ROUTINE PERFORMS THE FOLLOWING 
FUNCTIONS: 

1, WUOADS RS WITH BASE ADDRESS 

2. TYPES TIME LINE <suoe> 

3, PROVIDES CONTINUOUS LOOP <SW14> 

4, MOVES FUNCTION TIME INTO TABLE 

S, OUTPUTS LINE ITEM IF SELECTED 

6, PROVIDES HALT ON TEST <SWO7> 

7, DELAYS 350MS BEFORE STARTING TEST 

8, INIT°S DRIVE/SLAVE 

9, CLEARS THE ERROR FLAG (ERFLG) 
THE ROUTINE MONITORS SWi4, SWil, 8410, SWO8, AND gwe7, 


eeeTHIG ROUTINE WILL CHECK FOR CNTL G<°G> BY DOING A Jsr pC,CKswr 
(REFER TO CHAPTER 3 FOR DESCRIPTION), 


$,2 PUBLISH 
THE PUBLIGH ROUTINE Ig CALLED FROM THE SCOPE ROUTINE IF sWie@ Is EQUAL 


TO © (PUBLISH TIME DOCUMENT), THE ROUTINE WILL PRINT A *SINGLE LINE 
ITEM® EACH TIME IT I6 CALLED, 
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SUBROUTINE ABSTRACTS 


THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN ERROR 

IS DETECTED, A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 

— Rew IN SEC 4,1, A MLT¢1 (TRAPO1) FORMATS THE ERROR AS SHOWN IN 
ofe 


@eoTHIS ROUTINE WILL CHECK FOR A CNTL G <°G> BY DOING A JSR PC,CKauR 
(REFER TO CHAPTER 3 FOR DESCRIPTION)» 


J) 





" 
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MISCELLANEOUS 


CHAPTER 6 
MISCELLANEOUS 


6,1 STACK POINTER 


THE STACK pOINTER Ig INITAILLY SET TO S99 AND I8 RESET T0 Soe BY THE 
SCOPEA ROUTINE, 


6,2 EXECUTION TIME 
WHEN gWilei (INHIBIT ITERATIONS) THE TIME REQUIRED Ig 2 MIN, 
WHEN SW1is@ (ITERATE SUBTESTS) THE TIME REQUIRED I8 9 HIN, 
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1, 


PROGRAM DESCRIPTION 


i SAMPLE TIME DOCUMENT 


TYPE FIRST ADDRESS OF CONTROLER 172440 
TYPE TH@2 DRIVE 6°S TO BE TESTED 6 

FOR TMO2 DRIVE Oe TYPE SLAVE 0°S TO BE TESTED 7 
TAPE SPEED TESTS ONLY? (YES/NO © 1/8) 8 
WRE ONLY? (YES/NO © 1/0) © 
O0FOFOCCOCOOEOOOECOOECOOODSOOSEDERODECCOCOOCOSOOCOSEOOCOEEEOO DCEO OCCC® 
TMO2 ORIVE FUNCTION TINES@ DRIVE @ © SLAVE @ 7 9 CHAN, SER, © 5009 


CHAPTER 7 
PROGRAM DESCRIPTION 


a 

® FUNCTION TIME( SPECIFICATION) TIMECACTUAL) 

® WRITE FROM BOT RANGES<1886060-184000> ACTUAL#1 64740 
@ WRITE START RANGES<609500-808700> ACTUAL#009120 
® WRITE SHUTDOWN RANGES<606900-°808500> ACTUAL#060640 
® WRITE SETTLEDOWN RANGE®<61 3800-00681 00> ACTUALS910970 
® READ FROM BOT RANGES<1520000149000> ACTUAL#150500 
@ READ START RANGES<603280°882600> ACTUAL®662740 
® READ SHUTDOWN RANGES<804650°004250> ACTUAL#004360 
® READ SETTLEDOWN RANGES<613500-008100> ACTUAL#016970 
@ READ REV START RANGES<863280-0802600> ACTUAL#002746 
® READ REV SHUTDOWN RANGES<883700-083300> ACTUALS603520 
® READ REV SETTLEDOWN RANGES<81 3500-008 100> ACTUALS016970 
® TURN AROUND DELAY FeR RANGES<8167860-816700> ACTUALS@1 3600 
@ TURN AROUND DELAY Ref RANGES<016760°010780> ACTUALSO1 3660 
® GAP 6IZE°sTOP HALF RANGES<612900-°009500> ACTUAL8@12200 
@ GAP SIZE<START HALF RANGES<0118000-008500> ACTUAL#910520 
@ GAP SIZEcINTERRECORD RANGES<O14600-013700> ACTUALS@14500 
® GAP CONSISANCY RANGES<81 4000°012400> ACTUALSO1 3040 
® DATA TIME+260 BPI RANGES<024166°023100> ACTUAL#023460 
@ DATA TIME*SS56 BPI RANGES<624600°023000> ACTUAL#023350 
® DATA TIME<8OOBPI RANGES¢€O24000°023000> ACTUAL#623400 
® DATA TIME+1600BPI RANGES<625100°024100> ACTUAL#024470 
@ ERASE GAP TIME RANGES<101000-099600> ACTUAL#099510 
® WRIYE FILE MARK RANGES<105000°1683000> ACTUAL#103990 


Ll 


— — — — — — Q —— — — — 
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7,3.1 SAMPLE TIME DOCUNENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER greene 
TYPE TNO2 ORIVE 6°S TO BE TESTED 6 
FOR THO2 DRIVE Oe TYPE SLAVE 0°S * BE TESTED 7 
— Tests — tres/uo @ 178) 1 

— 
—* *ORIVE FUNCTION TINESe DRIVE ¢ © SLAVE 6 7 9 CHAN, SER, 8 5009 


eruncTioN TINE ( SPECIFICATION) TIMECACTUAL) 
@TAPE SPEEDO Fwd RANGES<022700°021700> ACTUALG@22500 
®TAPE SPEED REV RANGES€622700°021700> ACTUALSO22500 


mi 
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PAGE 13 


TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 


TEST NO,/NAME 


12, 


iS, 


i7, 


WRITE FROM BOT 


WRITE START 


WRITE SHUTOOWN 


WRITE SETTLEDOWN 


READ FROM BOT 


READ START 


READ SHUTDOWN 


READ SETTLEDOWN 


READ REVERSE START 


READ REVERSE SHUTDOWN 


READ REVERSE SETTLEDOWN 


TURN AROUND Fer 


TURN AROUND ReF 


GAP SIZE*sTOP HALF 


GAP SIZE-sTART HALF 


GAP SIZE INTERRECORD 


RELATED ADJUSTMENTS 


®NONE 


@FWRD/REV SPEED@START/STOPORAMPS 


*SAME AS IN TEST 16 


@FWO/REV SPEED 


ASSOCIATED HARDWARE 


M6911 ROMOME9G3 ACCL 
e *# ® . 
© ° & ® 


@M691@ SETTLEDOWN ONE 


oM6911 ROM@MO963 ACCL 


M6910 SETTLEDOWN ONE 


oM6911 ROMeM69G3 ACCL 


@MO910 SETTLEDOWN ONE 


oMe931 ROMeMe9@3 ACCL 


CNTR 


SHOT 


CNTR 


SHOT 


CNTR 


SHOT 


CNTR 


SEQ 0014 


Pa 
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21, GAP CONSISTENCY @SAME AS IN TEST 16 @URITE CLOCK 
@TEST NUMBER 22 I8 RESERVED FOR FUTURE USE 
23, DATA TIME 200 BPI @NONE . * . 
24, DATA TIME SS6 BPI e ® . * ® 
25, DATA TIME 806 BPI . * . * e 
26, DATA TIME 4600 BPI x. * x. * sd 
27, ERASE GAP TIME . * @MO911 ROMOHE9G3 ACCL CNTR 
30, WRITE FILE MARK . * .e * ee 8 ° 
31, TAPE SPEEDeFORWARD oFWO SPEED eCAPSTAN SERVO LOOP 
32, TAPE SPEEDeREVERSE @REVERSE SPEED eCAPSTAN SERVO LOOP 


eoeeeNOTE, IF TIME PROBLEMS AppEAR IN Ti THRU T36, RUN TAPE SPEED TESTS FIRSTeeeeees 








SEQ 6616 
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7,3 TEST DESCRIPTIONS: 


THE FIRST THIRTEEN (13) TESTS (Ti © TiS) ARE CHECKS OF THE 
ROM CIRCUITS IN THE TUIG (M9011), THE ACCL COUNTER IN THE 
TMO2 (M6903), AND THE SETTLEDOWN OWE SHOT (M6910), 


.T1, WRITE FROM BOTs 


THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA, 


i, ASSURE TAPE I8 STOPPED AT BOT, 

2, ISSUE A WRITE COMMAND 

3, MONITOR BIT 15 OF TC CACCL) 

4, TIME FROM GO TO ACCL RESET I8 BOT DELAY 
5, STOP 


T2, WRITE STARTS 


THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 
Ti, HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 
FROM BOT, 


LEAVE TAPE AT ITS PRESENT POSITION, ASSURE THAT IT 18 STOPPED 
2. ISSUE A WRITE COMMAND 
3, MONITOR BIT 15 OF TC (CACCL) 
he TIME FROM GO TO RESET OF ACCL I8 START DELAY 
e STOP 


T3, WRITE SHUTDOWN: 


THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEOOWN TIME, THIS 
ASSURES, IN PART, A PROPER INTERROCORD GAP, 


1, UEAVE TAPE AT ITS PRESENT POSITION, ASSURE THAT IT I8 STOPPED 
2, ISSUE A WRITE COMMAND, 

3, MONITOR FRAME COUNTER AND BIT 4 OF D& (SDWN) 

4, TIME FROM FCe® TO ASSERTION OF SDWN I8 

THE SHUTDOWN TIME, 

S. sTOP 





Cr 


@®eoeeeveeeeeeg#e#ee#e8#e#ee#e@ee0808080 0 @ 
= 
es 


a a 





14, WRITE SETTLEDOWN: SEO 6617 


THIS TEST WILL MEASURE THE SLOWDOWN TIME, THE TIME 

FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 

BE STOPPED, THIS I8 A PART OF THE GAP TIMING IN LOGIC, 
THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 
WILL BE MEASURED IN A LATER TEST, 


1, LEAVE TAPE AT ITS PRESENT POSITION, ASSURE THAT IT I8 STOPPED 
2, ISSUE A WRITE COMMAND 

3, MONITOR BIT 4 OF DS (sDWN) 

4, TIME FROM SET OF SOWN TO RESET OF gDWN Ig THE 

SETTLEDOWN DELAY 

S, s8ToP 


TS, READ FROM BOT 


THIS MEASUREMENT Is MADE EXACTLY Ag THE WRITE 
MEASUREMENT IW Ti, USE THE SAME RECORD THAT WAS 
WRITTEN IN Ti, 


1, REWIND TO B0T 

2, ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE srop 
3, READ FORWARD 1 RECORD, 

MONITOR BIT 18 OF TC (ACCL) 

S, TIME FROM GO TO ACCL I6 BOT DELAY 

6, sTOP 


@®eoeeesesveq@eeeeee7eestreeeeeeeeese 0 
& 
2 








T6, READ START SEQ 0018 
THIS TEST MEASURES THE SAME DELAY AS IN 72, 


1, WRITE { RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE I6 STOPPED, 
2, I6SUVE A READ FORWARD OF THE RECORD WRITTEN IN STEP i, 
3, MONITOR BIT 15 OF TC C(ACCL) 
* — FROM GO TO RESET OF ACCL I6 START DELAY 
8 
e 


T7, READ SHUTDOWNs 
THIS TEST MEASURES THE SAME DELAY AS IN T3, 


1, WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE I8 STOPPED, 
2, READ FORWARD THE RECORD WRITTEN IN STEP 1, 
3, MONITOR FRAME COUNT AND BIT 4 OF DS (SDWN), 
4, TIME FROM FCORECORD SIZE (LAST FRAME READ) T0 SDwNe1 
1S THE SHUTDOWN TINE, 
S, stop 


T10, READ SETTLEDOWNs 
THIS TEST MEASURES THE SAME DELAY AS IN T4, 


1, WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE I8 STOPPED, 
2, READ FORWARD THE RECORD WRITTEN IN STEP i, 
e MONITOR BIT 4 OF DS (SDH) 
4, ‘ TIME FROM SET OF SDWN TO RESET OF SDWN I8 THE 
SETTLEDOWN DELAY, 
5, STOP 








SEQ 0019 
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T1ii, READ REVERSE START: 


THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION, 


1, WRITE 3 RECORD, ASSURE TAPE I8 STOPPED, 

2, READ REVERSE THE RECORD WRITTEN IW STEP 1, 

3, MONITOR BIT 18 OF TC (ACCL) 

2 am Fae. FROM GO TO RESET OF ACCL 38 THE START TIME 
° 


T12, READ REVERSE sHUTDOWN 


THIg TEST WILL MEAQURE THE READ sHUTDOWN IN THE REVERSE 
DIRECTION, 


i, WRITE 1 RECORD, ASSURE TAPE I6 STOPPED, 

2, READ REVERSE THE RECORD WRITTEN IN STEP 1, 

3, MONITOR FRAME COUNTER AND BIT 4 OF DS (spin), 

4, TIME FROM FCeRECORD SIZE (LAST FRAME READ) TO gDWNei 
18 THE READ REVERSE SHUTDOWN TINE, 

S, stop 


T13, READ REVERSE SETTLEDOWN: 


THIg TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION, 


1, WRITE 1 RECORD, ASSURE TAPE Is STOPPED, 

2, REAO REVERSE THE RECORD WRITTEN IN STEP 1, 

3, MONITOR BIT 4 OF DS (sDWN) 

4, TIME FROM SET OF SOWN TO RESET OF SDWN Ig THE 
SETTLEDOWN DELAY 

S, sTOP 


T14, TURN AROUND DELAYeFORWARD TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION, 


1, LEAVE TAPE AT IT8 PRESENT POSITION, ASSURE THAT IT Is STOPPED 
2, ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 
3, MONZTOR BIT 7 OF DS (DRY) 
4, WHEN DRY I8 ASSERTED (LOR), IMMEDIATELY 188UE A 
READ REVERSE OF THAT RECORD, 
S, MONITOR BIT 18 OF TC CACCL),. 
6, TIME FROM GO OF READ REVERSE TO RESET OF ACCL 18 
THE TURNAROUND TINE, 
7, sToP 





THO2 ORIVE FUNCTION TINER 
T1S, TURN AROUND DELAYeREVERSE TO FORWARD 


THIgG TEST WILL MEASURE THE TINE AS IN 114, BUT IN THE 
OPPOSITE DIRECTION, 


WRITE 1 RECORD, 

ASGURE TAPE 18 STOPPED 

READ REVERSE 

MONITOR ORY (BIT 7 OF DS) 

WHEN DRY @ 1, ISSUE A READ FORWARD 

MONITOR ACCL (BIT 18 OF TC) 

— FROM GO FORWARD TO ACCL © 1 18 THE TURN AROUND TINE, 
o 
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GAP MEASUREMENTSs 


THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TMO2 OR TUI6 IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (,6 INCHES), ‘THIS TEST, HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF TNE INTERCORD GAP THAT 
EXISTS OW TAPE AS A RESULT OF THE START/STOP TINES OF 

THE CAPSTAN ITSELF, BECAUSE THE INTERRCORD GAP I6 

CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 

STOP OF NOTION If 18. NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS, A THIRD MEASUREMENT, MADE ON THE FLY, OF 
THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE, 


716, GAP SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
In —* CYCLE, I OTHER WORDS, THE DISTANCE INTO 
THE ® 


i, WRITE 3 RECORD, 

2, ASSURE TAPE 1s STOPPED, 

3, I26s8UE A READ REVERSE OVER THE RECORD 

4, MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC © 3) 
S, THE TIME FROM GOei TO FCei Ig THE LENGTH OF THE GAP 

STOP 


T17, GAP SIZE (START HALF) 


THIg TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP, 


i, WRITE 1 RECORD, THEN REVERSE OVER IT, ASSURE TAPE Is sTOpPED, 
2, ISSUE A READ FORWARD 

3, MONITOR FC FOR FCei 

4, TIME FROM GOsi TO FCei I6 START DISTANCE 

5, STOP 


720, GAP SIZE (INTERRECORD) 


THIg TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG, THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL A SUMMATION OF T16 AND 717 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE WOT IN 
EFFECT, THE VALUE HERE SHOULD ACTUALLY BE LEss THAN THE 
SUM OF T16 AND T17, 


i, WRITE 2 RECORDS, 
2, READ REVERSE OVER THE SECOND RECORD 
3, MONZTOR ORY (BIT 7 OF DS) 
4, WHEN DR¥ eo 1, ISSUE A SECOND READ REVERSE 
S, MONITOR FRAME COUNT 
6, TIME FROM GOsi OF SECOND READ REVERSE TO FC#i 18 THE 
LENGTH OF THE GAP, Ho. 
7, STOP 
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721, GAP CONSISTENCY: 


WOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP I6 THE PROPER SIZE, LET US DETERMINE THE CONSISTENCY 
OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES, 

BY WRITING A SERIES OF RECORDS, EACH WITH A DIFFERENT 
DELAY BETWEEN EXECUTION, WE CAN ESTABLIGH THE CONSISTENCY 
OF THE GAPS BY READING THESE RECORDS AND MONZTORING 

THEIR INTERRECORD GAPS, ON THE FLY, 


1, REWIND TAPE TO BOT, 

2, WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

3, WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
OF FROM © TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS, 

4, BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO sTOP, 

S, READ FORWARD (NON@STOP) OVER THESE 16 RECORDS, EACH 
TINE MONITORING THE TIME FROM THE END OF RECORD (ORY) 
UNTIL THE FRAME COUNT NEXT GOES FROM © TO 1 (FCei), 

6, THE TIMES FROM DRY TO FCei IS THE GAP TINE AWD IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS, 


7, 8TOoP 
@e(SEE GTINTBL IN DETUD LISTING FOR GAP TIMES) oe 


722, RESERVED FOR FUTURE USEcecee 
723, DATA TIME AT 200 BPI: 


THIS TEST WILL MEASURE THE TIME REQUIRED TO WRITE 
OWE (1) INCH OF TAPE AT 200 BPI, 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (200 FRAMES), DATA RATE 

CAN BE VARIFIED, 


1, REWIND TO BOT AND ALLOW TAPE TO STOP 
2, WRITE A RECORD AT 200 BPI, 
3, MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 
4, THE TIME FROM FCeFC+l TO DRY WILL BE THE TIME REQUIRED 
. FOR 1 INCH AT THE SELECTED DENSITY 
« STOP 


724, DATA TIME AT S56 BPI: 
REPEAT STEPS 1 THRU S OF T23 AT SS6 BPI, 


T2S, DATA TIME AT 800 BPI: 
REPEAT STEPS 1 THRU S AT 608 BPI, 


726, DATA TIME AT 1600 BPI (PE): 
REPEAT STEPS 1 THRU S AT 1600 BPI, 
@eoTHIS TEST 16 NOT EXECUTED IF WRZ ONLYee 








— 
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T27, ERASE: 


THE ERASE COMMAND WILL CAUSE AN AREA OF THE THREE (3) 
INCHES 70 BE DC ERASED IN THE FORWARD DIRECTION 
THIgG TEST WILL ASSURE THAT THE PROPER DISTANCE is 


1, LEAVE TAPE AT 178 » PRESENT POSITION, 
2, ISSUE AN ERASE COMMAND, 
3, MONITOR ORY (BIT 7 OF DS) 
4. THE TINE FROM GO 70 DRY WILL BE THE TIME 
QUIRED TO ERASE 3 INCHES OF TAPE AND WILL 
. nErLECT THE DISTANCE, DENSITY Ig NOT A FACTOR, 
e 


730, TAPE MARKs 


THIg TEST Is ALSO A CHECK ON rs THREE (3) INCH GAP, 
WHEN A TAPE MARK Ig WRITTEN, A 3 INCH GAP I8 
CREATED BEFORE DATA Is PUT OW TAPE, 


1, LEAVE TAPE AT ITs RU3æ; Azo⸗ 
2, I288UE A WRITE TAPE MARK COMMAND 

MONITOR ORY (BIT 7 OF Ds) 

4, THE TIME FROM GO TO DRY WILL BE THE TINE 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
3 INCH GAP, 

S, sTOoP 











THO2 DRIVE FUNCTION TIMER 


731, TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 808 BPI SKEW TAPE) 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST, THE SKEW TAPE I8 THE ONLY 
WAY TO ASSURE THAT TAPE I6 MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES OW A SKEW TAPE I8 
GUARANTEED TO BE ACCURATE, 


1, ASSURE TAPE I6 STOPPED AT BOT, 

2, ISSUE A READ FORWARD (006 BPI, NORMAL) 
3, WONITOR FC FOR FC = 080(10) 

4, MONITOR FC FOR FC © 0000(10 


) 
S, TINE FROK FC & 800 TO FC © 6800 IS THE TINE REQUIRED 


FOR TAPE TO TRAVEL 16 INCHES 
6, OIVIOE THE TINE FOR 16 INCHES BY 16 
ve me TS AN AVERAGE SPEED FOR : INCH, 
e STOP, 


732, TAPE SPEED REVERSE: 


THIS TEST 16 THE SAME AS TEST 31, BUT SPEED Is 
MEASURED IN THE REVERSE DIRECTION, 


i, ADVANCE TAPE OFF OF BOT, 

2. ISSUE A READ REVERSE 

3, ig STEPS 3 THRU 6 IN THE REVERSE DIRECTION, 
4, STOP, 
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WACYi1 27€732) 18eHAR©76 13806 PAGE 1 SEQ 6026 
oMLIST HC 
oLI8T ME 
oABS 
oMCALL OCPREG, SCPVEC, SCPREG, OCATCH, OTYPE 
efITLE DSTUD9C THO2 ORIVE FUNCTION TINER 
eSOTTL STARTING INSTRUCTIONS 

LOADING AND STARTING PROCEEDURE 

§ LOAD PROGRAM USING ABS LOADER 

$ LOAD ADDRESS 200 

5 GET SWITCH OPTIONS 

1 PRESS START 


; ROSADDRESS OF °FC* REGISTER (SET BY SCOPE) 
; RISADORESS OF °DS° REGISTER (SET BY SCOPE) 
} RIORETURN PC FROM TIMER (SET BY EACH TEST) 
; RJSINDER ENDICATING PREVSOUS OSCILLATOR SOLARISY (GET BY TINEA) 
’ R4SCONTAING °TICK® COUNT WHEN TINER I8 RUNNING (SET BY TIMER) 
} RSCADDRESS OF CSi (SET BY SCOPE) 
}OWITCH REGISTER SWITCH ASSIGNMENTS 
8¥iSe 100000 ;HALT OW ERROR 
Swiée 949000 ;LOOP SUBTEST 
awide 620800 sINHIOIT ERROR TYPE OUT 
S¥iie 904ee0 pINHIDIT SUBTEST ITERATION 
Bwie8 902000 sINNIBIT PUBLICATION OF FUNCTION TINES 
Suede 681808 RING BELL OW ERROR 
sues eessee STYDE LINE ITEM AFTER EACH ITERATION 
swo7s 980200 pMALT ON TEST SELECTED IN gueSeguee 
sue6e © 9 00100 SCONTINUOUS CYCLE 
,SBTTL MACRO DEFINITIONS 
MACRO SAVE 
Sars PC, . SAVE }SAVE REGISTERS ON THE STACK 
,ENDM GAVE 
“MACRO RESTORE 
Sar PC, , RESTORE pRESTORE REGISTERS FROM THE STACK 
,ENDM = RESTORE 
MACRO INPUT 
5sn ss BC, INPUT GET USER INPUT 
,ENOM «=o SNPUT 
MACRO REWIND 
58k BC, REWIND PREWIND SLAVE 
zuß 55 ;BRANCH IF ERROR OW REWIND 
,ENDM = REWIND 
MACRO TIMEON 
3sr PC, TINON }TURN TIMER ON 
 ENDM 
MACRO TINCHK 
MP, TIMERCRD) GO TO TINER & RETURN VIA R2 
6 
aeno SETGO mo 
ine (RS) p8ET °GO* BIT 


0 ih I indie ntl ed eal etait alas Ral i ce nai iit ai. iat 





DZTUD\eC TM@2 DRIVE FUNCTION TIMER MACY11 27(732) 1@°MAR©76 13106 PAGE 2 SEQ 0027 
DZTUDC,P11 MACRO DEFINITIONS 

$7 

se eSBTTL REGISTER ASSIGNMENTS 

$9 ssDEFINITIONS AND REGISTER ASSIGNMENTS 

60 1)GENERAL REGISTER ASSIGNMENTS 

61 800000 ROsSkO 

62 200001 Risti 

63 000002 R202 

64 900003 R303 

65 eoeces 84884 

66 ooooos RSees 

67 000006 SPst6 

68 000007 pces? 

69 oee0ee R1088e 

70 000001 Ri i881 

1 ee0ge2 R12802 

72 909003 R138§3 

73 000004 R14en4 

74 ooooos RiSees 

75 

76 HyREGISTER ADDRESSES 

77 177776 PSws 11717776 ssPROCESSER STATUS WORD 

78 177774 SLRe =: 177774 peSTACK LIMIT REGISTER (11/40,11/45) 

79 177772 PIRQs §=177772 s9PROGRAM INTERRUPT REQ, (11745) 

80 177770 UBREAK® 177770 peMICROCBREAK REGISTER (117/45) 

81 177560 TKse §=—s_- 177568 ssKEYBOARD CSR 

82 177562 TKBe = «4.77562 SPKEYBOARD DATA BUFFER REGISTER 

83 177564 TPse = «177564 SITELEPRINTER CSR 

84 177566 TPBs 177566 ssTELEPRINTER DATA BUFFER REGISTER 

8s 

86 1HVECTOR ADDRESSES 

87 000004 ERRVECS4 S9ADDRESS OF ERROR VECTOR 

68 000010 RESVEC#10 SVADDRESS OF RESERVED INST, TRAP VECTOR 

89 000014 TBITVECS14 SHADDRESS OF °T* BIT TRAP VECTOR 

90 000014 TRTVECE14 spADDRESS OF *TRACE*’ TRAP VECTOR 

91 000014 BpTVEC#14 SADORESS OF “BREAKPOINT? TRAP VECTOR 

92 000020 1OTVECs29 spADORESS OF 10T TRAP VECTOR 

93 000024 PFVECe24 spADDRESS OF POWER FAIL TRAP VECTOR 

34 000030 EMTVECS30 SPADDRESS OF EMT VECTOR 

95 000034 TRAPVEC#34 sp ADDRESS OF TRAP VECTOR 

96 300060 TKVECs 60 ssADDRESS OF TTY KEYBOARD INT, VECTOR 

97 900064 TPVECa64 s9ADORESS OF TTY PRINTER INTERRUPT VECTOR 

98 000114 PARVECs 114 sHADDRESS OF MA/MF PARITY ERROR VECTOR 

99 000240 PIRVECS240 sp ADORESS OF PIRQ VECTOR 

100 000244 FRPEVEC#244 spADDRESS OF FLOATING POINT INT, VECTOR 

101 000250 MMVECe2S0 spADDRESS OF MEM MGMT ERROR TRAP VECTOR 

102 

103 yCLOCK ADDRESS AND VECTORS 

104 172540 PLKCSR® 172540 sKWileP 

105 600104 PLKVECs 104 

106 177546 LKs® = =«_- 177546 IKWiteL 

107 900100 LKVECs § 100 

108 177514 Lpse = «177514 LP 

109 177516 Lpp=s = «177816 43 


112 17244 


pRH11,TMO2Z/TUIG REGISTERS 
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o 
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DZTUDC ,Pii REGISTER ASSIGNMENTS 
— 113 
114 sTMO@2/TUIG INDEX VALUES 
118 680800 Csis 08 sCONTROL STATUS 61 
a] 116 000002 wee 62 
117 800004 BAe @4 98US ADDRESS REGISTER 
118 660806 FCe 06 pPRAME COUNT 
eo 119 000010 Csé2e 10 sCONTROL STATUS 62 
120 000012 0se 412 sORIVE STATUS 
121 000014 CRe 14 SERROR REG 01 
@ 122 088016 Ags 16 pATTENTION SUMMARY 
123 000022 DBe 22 sOATA BUFFER REG 
124 000024 ARe 24 pMAINTENANCE REG 
& 125 000026 OTs 26 pORIVE TYPE REG 
126 e6e03e Stile 30 sSERIAL WUMBER REGISTER 
+a 600032 TCe 32 sTAPE CONTROL REG 
i 
e 129 eSBTTL TMO2/TUIG REGISTER BITS 
130 pRHCS1 C81 (RS) 
O 431 600001 Gos i 
132 600906 NOPs 8 
133 860002 RWDOFFs 2 
® 134 060026 RWDs 6 
135 600010 DRYCLRe 10 
136 000026 WPMKe 26 ‘ 
al 137 886024 ERASEe 24 
138 68008386 SPCFwDe 30 
139 600032 SPCREVe 32 
2 140 600050 WCHKFa $0 
141 089036 WCHKRe $6 
142 600068 WFwos 60 
e@ 143 609070 RDFWOs 70 
144 000076 RDREVe 176 
145 090160 Ite 100 
O 146 800200 ROYs 200 
147 860480 Al6e 400 
146 661000 Aive 1000 
@ 149 O0¢20600 PSELe 2000 
180 0046008 DVAs 4808 
1513 020000 MCPEe 20000 
& 182 040000 TREs 46068 
183 1ee800 8Ce 100000 
154 pRHCS82°C82( RS) 
& 155 690808 Oves 8 
156 600001 OVies 
187 600002 OV2e 2 
id ise 6800003 Dv3e 3 
159 080004 Ovés 4 
160 600005 OVSe 8 
& 161 60006 DV6e is) 
162 660007 DV7s 7 
163 600010 BAIs 16 
@ 164 8809828 PATe 26 
165 890040 CLRe 40 
166 690100 IRe 100 B3 
fe) 167 620268 


Oke 200 
166 11) ee — 





° 
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DZTUDC P41 TMO2/TU16 REGIGTER BITS 

B 169 001000 MxXFe 1000 
178 002000 PGEs 2000 
i714 604000 WEMs 4008 

2 172 010000 wEDs 10900 
173 020000 UPEs 20000 
174 648060 wCEs 48000 

& 175 190000 OLTs 169006 
176 pRHOS@DS(RS) 
177 690001 SLAs 1 

@ 178 000002 pots 2 
179 o9004 TMKe 4 
180 oeeele 1088 18 

@ 181 000020 sowne 20 
162 888848 PESe 4a 
183 Gcuige 8sCe ide 

@ 184 000200 DRYe 208 
185 808400 DPRs ace 
186 092008 £0Tts 2000 

8 167 a04ege WRL® 4200 
108 o0100060 MOL® 10086 
109 020000 Pipe 20000 

@ 190 8406600 ERRe e000 
191 100000 ATAs 100000 
192 pRHERER(RS) 

ra) 193 609001 ILFe i 
194 900002 ILRe 2 
195 o00ee4 RMRe é 

S 196 
197 900020 FMTs 20 
198 900100 INCVAES 100 

® 199 000200 PEFLACe 260 
200 800408 N8Gs ee 
201 001600 FCEe 1800 

@ 202 02000 CSITMs 2000 
203 0904000 NEPR 4000 
204 019000 DTEs 100060 

8 205 020000 OPIs 20000 
206 640000 UNSs 40000 
207 

e 208 pRHMReMR(RS) 
ase 000100 0sce 100 
i 

S 211 pRHOTeDT(RS) 
212 902000 SPRs 2000 
213 010000 CH7s 10900 

6G 214 040000 TAPS 40000 
215 
216 pRHTCoTC(RS) 

e 217 000300 WORMI1e 300 
218 690320 COMiie 320 
219 000000 B8PI2008 @ 

6 220 880 406 4 BPISS6= 900400 
221 601000 BPIGees 001000 
222 602000 PE1600= 902000 C3 
223 199008 ACCLe 109000 


— er 





225 

226 194400 
227 164030 
228 686004 
229 

2308 

231 005724 
232 177400 
233 177680 
234 

235 09000) 
2236 600011 
237 900012 
238 606015 
239 900017 
248 000025 


ee I Te 
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pINSTRUCTION EQUATES 
HLTe TRAP 
SCOPES ENT 
TYpte 107 


sMISCELLANEOUS EQUATES 
OUTSUreINIT 
FRNCNTe 0266, 
WRDOCHTS ©1286, 

pASCIZ EQUATES 
CNTRLC 


CNTRLOS 17 
CNTRLUS 25 


sOTPUT BUFFER START AT BEG OF PROGRAN 
sPRAME COUNT 
SWORD COUNT 


pABCIZ CODE FOR CONTROL C (°C) 
pASCIZ CODE FOR HORIZONTAL TAB 
SASCII CODE FOR LINE PEED 
sASCIZ CODE FOR CARRIAGE RETURN 
sASCZI CODE FOR CONTROL 0 (°O) 
SASCIZ CODE FOR CONTROL U (*U) 
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241 
242 
243 
244 
24s 
246 
247 
248 
249 
250 


000014 
000016 
606020 
000622 
800024 
000026 
000030 
000032 
8006034 
600036 


600176 


801000 
001602 
001004 
01008 
801006 
001016 
601612 
001014 


001054 
@01114 
001116 
001120 
001121 
001122 
001123 
001124 
001125 
001126 
001127 
001130 


TMO2/TUIG REGISTER BITS 


600200 
000137 


1778708 
Ge0e8e 

000 

tT) 
600000 
1724468 
S6enee 
660620 


065724 


MACY11 27¢732) 


IGeMARCT6 


pSETUP TRAP VECTORS 


sGET °T° TRAP TO TIMER ROUTINE 
sPRIORITY LEVEL 7 

sSET LOT TRAP TO , TYPE ROUTINE 
pPAIOTITY LEVEL 6 

pPOWER Fall TRAP TO HALT 

sat PPVECS? 

pS0T ENT TRAP @SCOPE ROUTINE 
— PRIORITY LEVEL 7 

98eT TRAP TRAP TO HLT ROUTINE 
sPRIORITY LEVEL 7 


pSOPTWARE SWITCH REGISTER LOC, 176 


eSTBITVEC 

eWORD 82 

eWORD HALT 

® WORD e TYPE 

WORD 86 

eWORD PFVYECS2 

WORD HALT 

e¥ORD SCOPE 

e WORD 340 

e¥ORD eHUT 

eWORD 340 

eeTKVEC 

eWORD  fTKIGR 

e¥ORD 340 

08176 

SWREG: 0 

92200 

JMP OoINIT 

228500 
STKPTRe ée0 

221006 
pPROGRAM TAGS 
SWRs 177870 
SCPADRs ,WORD 6 
ORVNUMs ,BYTE 6 
SLVNUMs ,BYTE 06 
SLVPTRs ,WORD 06 
TMBASES ,WORD THCSi 
ATINEs ,WORD 96 
ATIMNTBL: ,BLKW 16, 
GAPTBL: ,8LKw 16, 
DELTIMe ,WORD 6 
OCTALOs ,WORD 86 
GAPe eBYTE @ 
ITCNTs ,BYTE 86 
TSTNUMs ,BYTE © 
ERFLGs; ,BYTE 06 
PRGFLG: ,B8YTE 8 
UNTFNDs ,BYTE © 
TYPFLG: ,BYTE @ 
WREFLG: ,BYTE 6 
ASFLG:; ,BYTE 6 

eCVEN 
DIGTABs "61 

*23 

"4s 

"67 

"69 


pSOFPTWARE SWITCH REGISTER 


960 TO START OF PROGRAM 


STACK 


pSWITCH REGISTER 


sTM@2 ORIVE UNDER TEST 

sTUI6 SLAVE UNDER TEST 

sPOINTER TO SLAVE TABLE (SLVTBL) SELOW 

SBASE ADDRESS OF THOZ/TUIG REGISTERS 
sCONTAING °TICK® CoUNT 

pEACH EWTRY CONTAINS TINE FOR FUNCTION 

pENTRIES ARE MADE BY °SCOPE® ROUTINE 

sTIMES RECORDED BY °GAP CONSISTANCY® TEST 

pVARIBLE DELAY 


SCONTAING GAP @ (USED FOR TST 621) 
sITERATION COUNT 

sTEST 6 

sERROR FLAG 

pPROGRAM FLAG 

pUNZT FOUND INDICATOR 


SINDICATES IF DRIVE IS WRE OWLY, 
31/@ @ YES/NO, 


E3 
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OETUDC ,Pii THO2/TUIG REGISTER BITS 

297 001152 036 eSYTE 86 p TERMINATOR 

aoe 001154 SVEN 

299 801154 680618 ORVTBLs ,BLKB 68, pA O/e1 © DRIVE WOT TO BE/TO BE TESTED 

300 061164 800190 SLYTBL: ,BLKB 64, sA O/oi @ SLAVE NOT TO BETO BE TESTED 

301 001264 9800110 ruBuUrs §6,BLKS 724 sTELETYPE INPUT BUFFER 

302 001374 609015 000 CRLFs Asus §<CROCLFD sMISCELLANEOUS ASCII CHARACTERS 

303 001377 134 eee BKSLENs ,ASCIZ °\° 

304 001401 6608 060 ECHO; § =€6,ASCIR °O° 

36S 601403 007 060 BELL ,ASCIB <7> 

306 901408 oss 060 DASHs§=§=—, ASCIZ %o? 

307 001407 040 SPACE2s ,ASCIZ ° ° 

306 8801418 890040 SPACE: ,ASCIZ ° ° 

309 801412 004476 060 ANGTABs ,ASCIZ °>°<HT> 

310 001416 EVEN 

- 
F3 








ozTUD 
bat Pil 


318 001416 
319 001422 
320 001426 
321 001432 
322 001436 
323 001442 
324 001446 
325 961452 
326 001456 
327 001462 
328 001466 
329 001472 
330 0601476 
331 861502 
001506 
333 601512 
334 901516 
335 0661522 
336 601526 
337 001832 
338 061536 
339 0091542 
340 001546 
341 0601552 
342 901556 
343 601562 
344 001566 
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TIME SPECIFICATION TABLE 


o00cee 
043740 
001546 
001522 
001482 
19066 
000404 
099651 
01452 
Geass 
000512 
001452 
002056 
002056 
001666 
0015822 
002532 
002330 
6880890 
804406 
004374 
604274 
004552 
023254 
024074 
004172 
004172 


1GeHARCT6 13166 PAGE 6 


eSBTTL TINE SPECIFICATION TABLE 
THE BELOW TABLE CONTAING THE SPECIFIED FUNCTION TIMES IN TENS OF 
pMICROCESONDS, NOTE THAT WHEN TIMES ARE TYPEO THAT THEY ARE TYPED In 
sMICROSECONDS (BY APPENDING A 6), 


sFORMAT 18 
’ eWORD 


te800,, 18408, 
909S0.,00070, 
00000,,00080, 
01350,,00019, 
18200., 14900. 
00 220.,00260. 
00468 ,,00425, 
0138e0,,00016, 
00320,,00260, 
00370.,00330, 
01350,,00810, 
01670,201076. 
01670,,01078, 
91290 ,,00980, 
01180,,00089, 
014066,01370, 
01300,,01240, 
O08 


024160002310. 


62400, ,02300, 
02400,,02300, 
@2510,002410, 
10106, ,09900, 
10500.016300, 
02270,,02176, 
02270.,02178, 


sTIME In MB 


SPARE 
$108 ,00184,0 


te Mes 
by ye 0 he 


e 6,1 
333 
93 e 

—WX 
3333 
916,7°10,7 
912,9°9,8 
#14,0°8,8 
914,8¢33,7 
913,8042,4 
90,0°0.0 
9240193304 
924 ,0023,8 
924,0°33.0 
929 .1°2401 
}101.0099,8 


922,7°21,7 
922,721.47 


runctzoN 


WRITE FROM BOT 
WRITE START 
WRITE BhUTDOWN 
WRITE STLDOWN 
READ FROM 80T 
READ START 
READ SNUTOOWN 
READ SETTLED 
RD REV START 
RD REV BNTOWN 
RO REV STLOWN 


The RWO OLY Fer 
TRE RED OLY Ref 


GAp SISE STOP 
GAp SIZE STRT 
GAp SIZE INTER 
Gap CONSISANCY 
OUMMY 


DAT TINE 200004 
OAT TINE SSé6ePz 
DAT TINE SoenPI 
OAT TINE 1690PE 


ERASE 

WRT FILE MARK 
READ 1° TAPE 
RO REV 1° TAPE 


sNOTES TEST 31 AND 32 REQUIRE PRERECORDED 8OOBPI SKEW TAPE, 
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384 001572 
35S 001576 

001602 
387 601606 
356 001612 
389 001616 
360 001622 
361 6601626 
362 001632 
363 001636 
364 001642 
365 601646 
366 661652 
367 601656 
368 601662 
369 001666 


MACY33 27(732) 


GAP TINE SPECIFICATION TABLE 
9 S8TTL 


1GoMAR©76 13806 PAGE 9 


GAP TINE SPECIFICATION TABLE 
pTuIS TABLE CONTAINS THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
pOF THE 16, GAPS RECORDED BY THE GAP CONSISTANCY TEST (787821), 


pNOTEs GAP 0°S ARE IN OCTAL, 


§ e WORD 
GTINTBL: , WORD 
RD 


WAX, MIN(10) 


01410,,01296, 
61456,,01386, 
01900 .001370, 
01500,,01376, 
01500,,01306, 
01480,,01200, 
01480,,01200, 
01480.,,01260, 
01376,,012060, 
01370,,01200, 
01376,,01200, 
01370,,01206, 
01370,,01206, 
01370,,01206, 
01370,,01200, 
61370,,01200, 


914,1°32,9 
914,8¢13,8 
915 .0°33,7 
918 ,6¢13,7 
918 ,0°13,8 
914,$°12,0 
110, 3812,60 
914,9¢12,8 
913,7°12,8 
913,7°82.8 
913,7°12,8 
913,7°12,0 
913,7°123,0 
933,7°12,8 
3332332 
913,7012,0 





DELAY I" NS(49) 


— 
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DETUDC pii TEST HEADER POINTERS 


TTL TEST HEADER POINTERS 


sp 
371 STHE BELOW TABLE CONTAINS POINTERS TO EACH TEST°s DESCRIPTOR 
372 001672 60060600 WANPERE WORD 8 


396 9601736 000000 eWORD 86 sDUMMNY TEST 


397 601754 615661 eWORD A,TO31 


e 

Q 

a 

9 

S 

9 

o 

S 

2 

@ 391 01740 018413 eWORD «=A, 7029 
6 

© 398 901786 015623 eWORD A, 7032 
© 

@ 

2 

@ 

3 

i) 

3 

2 


T3 


DETUD]eC THO2 DRIVE FUNCTION TINER 
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399 
408 
401 
482 
403 
464 
40s 
406 
407 
406 
409 
416 
411 


0017608 
001762 
001764 
001766 


001776 
601776 
002000 
082606 
002014 
062022 
002024 
002030 
002034 
092048 
062044 


002050 
002054 
002662 
002066 
002074 
002162 
002104 
002106 
802114 
802116 
002124 
602130 
002136 
002140 
062142 
0021506 
002152 
667160 
002162 
602166 
602170 
002174 
002260 
602204 
062212 
8022260 
002224 
002226 
882236 
002236 
002240 


TEST HEADER POINTERS 


022767 


006176 


175586 
177600 
869007 


015645 
018652 
176740 
000564 
015663 


177766 
000007 
000184 
177660 
600025 


000015 
000200 
8606230 
000007 
000066 
606067 
019671 
177566 
177862 
177586 
000060 


177542 
177540 


177826 


177002 
177782 


177744 
177736 


177762 
177664 
177656 
177644 
177642 
177626 


177610 
177600 


1775846 
177842 


176842 


MACYS1 27(732) 


CNTLUs 


68s 
4et 


768 
OUT? 


1GeMAR@76 13506 PAGE 11 SEQ 0036 
sCHECK SWITCH REGISTER ROUTINE, CHECKS FOR “G TO ALLOW CHANGING 
s0F LOC .176, 
sCALL 38 BY WAY OF JSR PC,CKawR 
pLOCATIONS USEDs 
TIBs eWORD 86 
TEMPST: ,WORD @ 

COUNT: ,WORD 6 

ROGWs eWORD 8 

CMP OSWREG, SUR SSOPTWARE SWITCH REG PRESENT 
BNE OUT 980, GET OUT 

MOV TKS, TIB gAND STRIP OFF 

Bic 0177600,TIB sTHE GARBAGE 

CMP 07,TI8 938 IT A <°God 

BNE out 

TYPE,L,CNTG 

TYPE,L.SwR 

MoV OSWR,R2 

J8R PC, TYPOCT 

TYPE,L NEW 

CUR TEMPST 

MOV 07,COUNT 

JSR PC, TTIN 960 READ A CHARACTER 

BIc 0177600,TI8 sSTRIP OFF GARBAGE 

CMPB 025 ,TIB 938 IT A UP 

BNE 28 sBRANCH IF HOT 

BR CNTLU pSTART OVER 

CMPB 01S,TIB 9368 IT A <CR>? 

BNE 46 pBRANCH IF NOT 

MOV 6200,RD8W 

JSR PC, TCRLF sECHO If WITH <LF> 

CMP ¢7,COUNT sWAS IT FIRST CHARACTER 

BNE 78 sCHANGE SWR IF NOT FIRST ONE 
BR our sGET OUT 

CuPB o60, ⁊10 

BGT se 

CMPB 067,TIB 

BGE 6h 

TYPE,L, QUEST 

BR a8 pSTART OVER IF NOT LEGAL CHARACTER 
A8L TEMPST 

A8L TEMPST 

A8L TEMPST 

BIcB 060,TIB sGET WITTY°GRITTY 

B88 TIB, TEMPEST 

bEC COuNT sONLY WANT 6 DIGITS 

TT) 88 , 

BR ie 

MOV TEMPST, oaun CHANGE SWITCH REGISTER CONTENTS 
BR G6 

RTS pc J3 








DETUD@C THe2 ORIVE FUNCTION TIMER 


DETUDC pii 


453 
454 
45s 
456 
487 


492 
493 
494 
495 
496 
497 
498 
499 
$00 
$01 
$02 
503 
304 
50s 
566 
$07 
soe 


8922462 
002246 
002252 
002256 
062262 
002266 
002270 
0892276 
002302 
002304 
002312 


002314 
002315 
002316 


002317 
002320 
002322 
662324 
002325 
662326 


002332 
002334 
002340 
002346 


002352 
002356 
002360 
002364 
002370 
602372 
002376 
002400 
002402 
002404 
002406 
062410 


TEST HEADER POINTERS 


605067 
008067 
005067 
005267 
105767 
100375 
016767 
105767 
100375 
116767 
660207 


000 
177564 
177866 

600 

6008 
605015 
002332 


010046 
017600 
062766 
105067 


108767 
001410 
600004 
105767 
100006 
005067 
600207 
112646 
601003 
605726 
012600 
000002 


122736 


178312 
1783168 
177802 
178276 
178272 


178266 
175262 


177480 


000062 
000002 
177783 
177747 


002326 
177376 


1773708 


177462 


178284 


MACY11 27(732) 


TTING 


TTINIG 


TTINZ: 


aOTT 
spROUTINE TO TYPE ASCII 
S9THE ROUTINE WILL INSERT A RUM 


ssCALLe 
59 


LGeMAR©76 13166 PAGE 12 


sTTY READ BUBROUTINECeoeoecces 


CUR TKs 
CLR TKS 

CLR tie 

rnc TKS 
T8T8 TKS 
BPL TTIN, 
MoV TKS, TIB 
T8T8 TPs 


BPL TTIN2 
MOVB TIB, TPB 
RTS ec 


— PROGRAM SUBROUTINES 


TYPE 
ESAOR 


MESSAGE 


TYPE SUBROUTINE 
hy — MUST TERQNINATE with A @ BYTE, 


R OF NULL CHARACTERS AFTER A LINE rez, 
9A TRAP TYPE INSTRUCTION 
peMEgADR Ig Finst ADDRESS OF ASCIE STRING 


p9TAGS —B3. BY THE TYPE ROUTINE BELOW 
i 


SNULLE 
sFILls 
OTPFLGE 


STKFLG! 
OTPSs 
OTPBs 


2 
,SYTe © 
8 


eOYTE 
;WORD 4.77564 
sWORD 177866 


SCHARCNTs BYTE © 
SCNTALO:,B8YTE 6 


OCRLF 3 


oTYPEs 


TYPEis 
TCRLF ss 


TYPE2s 


TYPE3s 


TYPE4s 


eASCIZ <15><12> 
EVEN 


MOV RO,°(S8P) 
MOV 02(SP),RO 
ADD 02,2(6P) 


CURB sCNTRLO 


TSTB) 4s SCNTRLO 
BEG TYPE2 


TYPE, sCRLF 
7870 ROSW 
BPL TYPES 
CUR ROSH 
RTS pc 


MOVB (RO) o,°( SP) 
BNE TYPES 


TsT (SP) 
MOV (SP)o,R® 
RTI 


ssHORIZONTAL TAB 

sSCONTAING MULL CHARACTER 

ppCONTAING @ OF FILLER CHARACTERS 
p9CONTAING TELEPRINTER AVAILABLE FLAG 
990/377 @ AVAIL/NOT AVAIL 

pesCONTAING KEYBOARD AVAILABLE FLAG 
ppADDRESS OF TLEPRINTER STATUS REGISTER 
spADORESS OF TELEPRINTER DATA BUFFER 
poCONTAINS © OF CHARS TYPED 

ppCONTAING CONTROL O CHAR (IF TYPED) 


spSAVE RO 
99GET MESSAGE ADDRESS 
sPADJUST RETURN pC 


ppBRANCH IF CONTROL 0(°O) WASN*°T TYPED 
ge TYPE <CR><LF> 


99PUSH CHARACTER TO BE TYPED ONTO STACK 
seBRANCH IF NOT THE TERMINATOR 

99POp TERMINATOR CHAR OFF THE STACK 
SSRESTORE RO 

spRETURN TO CALLER 


s9BRANCH IF HORIZONTAL TAB <HT> 


SEQ 0037 





DZTUD@C THO2 ORIVE FUNCTION TIMER MACY11 27€732) i18eHAR©76 13566 PAGE 13 SEQ 0030 
DZTUDC ,Pis TYPE SUBROUTINE 


$609 602420 004767 0660026 JER oc,S8 se TYPE CHARACTER 

$10 002424 122726 600012 360 CMpB 12,00*0 eunutet SF CHARACTER WAS A LINE FEED 

$11 0024360 6013506 BNE TYPE: seBRANCH IF NOT LINE FEED 

$12 002432 616746 177656 MOV GNULL, ©( SP) 99GET @ OF FILLERS REQUIRED AND FILLER 
aoa soCHARACTER, 

$3158 002436 108366 0000061 4838 oEce 1¢6P) S9OECREMENT FILLERS REG, COUNT 

$16 0602442 662776 BLT 36 P9BRANCH IF NO MORE FILLERS ARE REQUIRED 
$17 002444 686767 600002 JSR pc ,S6 soTYPE FILLER CHARACTER 

$18 60602450 000772 BR 4s 


$28 602452 108777 177642 58s 7870 osTPs seWAIT FOR OUTPUT DEVICE 

$21 0802456 10609375 BPL 204 

522 002460 122737 0660017 0682325 Cups C17,O0CCNTRLO 4 9CHECK IF CONTROL O WAS TYPED 
523 002466 601403 BEQ Ge 996TOP TYPING MESSAGE IF °O WAS TYPED 
$24 602470 116677 900002 177624 MOVB 2(6P), O6TPB seOUTPUT CHARACTER 

S23 602476 122766 ©600015 600002 68: Cups 015,2(¢8P) soBRANCH IF NOT <CR> 

526 0602504 601003 BNE 78 

$27 002506 105067 177612 CURB SCHARCNT seCLEAR CHARACTERS TYPED COUNT 
528 002512 660406 BR aé 

$29 002514 122766 600012 600002 78; Cups 012,2¢8P) s9BRANCH IF <LF> OR °HULL® 

338 0662522 862002 QGE 68 

$31 002524 105267 177574 Ince eCHARCNT se INCREMENT CHARACTER TYPED COUNT 
532 602530 600207 TT RTS ee 


$34 peHORIZONTAL TAB CHT> PROCESSER 

$35 002532 112716 900040 988 MOVB 040, (SP) s9L0AD °SPACE® 

$36 0602536 604767 177710 10638 JSR PC.S8 peTYPE °SPACE® 

$37 602542 132767 000007 177554 BITB 07, 6CHARCNT seTYPE SPACES UNTIL A MULTIPLE 
$38 602558 601372 BNE 166 990F © CHARACTERS HAVE BEEN TYPED 
539 002552 105726 76780 (SP)¢ 39R0P SPACE 

$40 602554 690676 BR TYPE1 p9GET NEXT CHARACTER 


$42 sSUBROUTINE TO SAVE GENERAL REGISTERS OW THE STACK 
543 sCALLs SAVE 

544 8602556 610546 eSAVEs MOV RS,°C8P) pSAVE REGISTERS OW THE STACK 
5345 662560 610446 MOV R4,¢( SP) 

546 8602562 616346 MOV R3,°( SP) 

547 002564 010246 MoV R2,°( SP) 

548 002566 6160146 MOV Ri, °(8P) 

549 602570 610046 MOV RO, °( SP) 

558 002572 616646 0900014 MOV 14(3P),°( SP) sGET RETURN PC 

551 0602576 800207 RTS pc sp RETURN 


$33 SUBROUTINE TO RESTORE GENERAL REGISTERS FROM THE STACK 

$54 pCALLs RESTORE 

555 602600 012666 000014 »RESTORE: HOV (5P)+,14(8P) pMOVE RETURN PC 

$56 902604 612600 MOV (8P)o,RO pRESTORE REGISTERS 

$$? 0602606 012601 MOV (8P)o,Ri 

$58 002610 612602 MoV (8P)o,R2 

$S9 002612 012603 MoV (8P)o,R3 

$66 002614 012604 MOV (8P)o,R4 

561 002616 612605 MOV (SP)o,RS 

$62 802620 600207 RTS pc pRETUAN L3 


SUBROUTINE 20 CONVERS OCTAL DATA 20967 Fs — —⸗ 











OZTUDeC THOZ ORIVE FUNCTION TINER 
DSTUDC , P11 


568 602622 110667 176300 
$69 002626 6090462 


$76 602630 105037 0601126 


S76 002634 064767 177716 
$79 6802646 612704 001144 


591 602672 612761 686003 
592 602676 116324 661132 


596 06602718 105737 001126 
596 002716 600064 001144 


608 0602722 804767 177652 
601 0602726 6890207 


608 002730 110637 0661126 
609 002734 600462 


615 002736 109037 0601126 
617 002742 604767 177610 


905000 
619 962780 612704 001146 
626 002784 sesee 


TYPE SUBROUTINE 


MACY11 27¢732) 18cHARCTG 13506 PAGE 14 


pCALLs MOV NUMBER,R2 sMOVE HUMBER TO R2 

’ JSR pC ,CuvOCcT 

Cuvocts move SP, TYPFLG SET DO NOT TYPE FLAG 
BR CuvtTo 


seTtL OCTAL TO ag & TYPE ROUTINE 
s SUBROUTINE TO CONVERT OCTAL NUMBER TO ASCII AND * tf Out 


pCALLs MOV WUMBER,R2 spUT o In 
4 JSR PC, TYPOCT sCALL ROUTING 
ooo CURB OeTYPFLG SET TYPE FLAG 
‘| 
JER PC, SAVE SGAVE REGISTERS Of THE STACK 
MOV OODIGITS, RE SET PTR TO OUTPUT 
CUR R3 gR3 WILL CONTAIN OCTAL DIGIT 
NOV R2,Ri GET @ 70 BE TYPED 
ise A8L R2 sSurrt @ 
ROL RS 
MOV 66,R0 SET OLGIT COUNTER 
BR 3a 
268 ASL R2 SHIFT © 3 PLACES LEFT 
ROL R} 
oec Ri 
ONE ae 
das MOV o3,R1 9SET SHIFT COUN 
ey — ca aia SHOVE asbe ⁊1 eourve 70 OUTPUT 
LR & 
orc a9 SOECRENENT DIGIT Count 
BNE 2g pGET NEXT DIGIT 
T8T8 OOTYPFLG sORANCH SF ABCII Is 
BNE 46 s¥O? TO BE TYPED 
— TYPE, OOIGITS 
ty 
JSR ——— pRESTORE REGISTERS FROM THE STACK 
RTS 


sSUBROUTINE TO CONVERT OCTAL DATA t0 DECIMAL ASCII 


sCALL: MOV NUMBER, R2 sMOVE NUMBER TO RZ 
’ JSR PC, CNYDEC 
CuvDECs nove SP, CoTYPFLG pSET DO NOT TYPE FLAG 

BR CNVTD 

9 SBTTL OCTAL TO DECIMAL & TYPE ROUTINE 

pThiIs ROUTINE CONVERTS AN OCTAL @ TO DECIMAL geese AND TYPEg If OUT 
sCALLé MOY NUMBERe R2 spuT @ IN a2 
’ JGR pC, TYPDEC gCALL ROUTINE 


TYPDEC? CLAS OoTYPFLG p8eTt TYPc FLAG 
CHVTDS 


JER PCo SAVE SaVE REGISTERS OM THE STACK 
CLR Re gRO 38 INDEX TO DECIMAL CONSTANT 


MoV eODIGITSE, RE sagt OUTPUT PTR 
2 . Do CON@STMe Deeewas neere 


— — — —— 


M3 





W 


DZTUD"C TMO2 ORIVE FUNCTION TIMER 


OZTUDC Pili 


621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
, 634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 


002756 
602762 
002764 
002766 
002770 
002774 
003000 
003004 
003010 
003012 
603016 
0803022 
003024 
003030 
083030 
003034 


003636 
003040 
003042 
003044 
003046 
803080 


603052 
083054 
063056 
003060 
063062 
003064 
003070 
003074 
003100 
603104 
003110 
603114 
063120 
003124 
003130 
0603134 
003140 
003142 
063144 


166002 
103402 
605203 
000773 
8660062 
116324 
062700 
005760 
001361 
112724 
108737 
001002 
800004 


604767 
000207 


023420 
001750 
060144 
600012 
900001 
800000 


010246 
810346 
006302 
006302 
610203 
6800004 
016302 
004767 
600004 
816302 
604767 
600004 
600004 
013702 
004767 
600004 
012603 
012602 
600207 


OCTAL TO DECIMAL & TYPE ROUTINE 


003036 


000060 
001126 


001144 
177544 


014645 
001416 
177636 
001405 
001420 
177622 
001412 
014655 
001012 
177602 
001374 





MACY11 27(732) 19°MAR©76 13106 PAGE 15 SEO 0040 
261 suB DCONST(RE),R2 ;SUBTRACT DECIMAL CONSTANT UNTIL 
BLO 38 sINPUT © GOES NEGATIVE 
INC 3 sREEPING TRACK OF SUBTRACTIONS 
BR 28 
388 ADD DCONST(RO),R2 }ADD BACK CONSTANT WHEN NEGATIVE 
MOVB DIGTABCR3),(R4)¢ pMOVE ASCIE EQUIVILENT 
ADD $2,R0 sNEXT CONSTANT 
TST DCONST(RO) SUNTIL ALL CONSTANTS DONE 
BNE ie 
MOVB 0°@,(R4)¢ }LAST DIGIT I8 © 
TSTB) 40 «- OS TYPFLG sBRANCH IF ASCII 18 
BNE 4s :NOT TO BE TYPED 
TYPE, ODIGITS 
48s 
JSR PC, ,RESTORE pRESTORE REGISTERS FROM THE STACK 
RTS PC 
DCONSTs ,WORD 10000, 
SWORD 4000, 
sWORD 100, 
‘WORD 10, 
eWORD 1, 
sWORD — ) TERMINATOR 
»SOTTL TYPE SPECIFIED TIMES ROUTINE 
}THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
yAND ALSO THE ACTUAL TIME RECORDED (ATIME) 
}FORMAT OF LINE TYPED 
}RANGES<AAAAAA®BBBBBB> acTuaLececcce 
}WHERES AAAAAA I8 MAXIMUM TIME FOR TEST (STIMTBLCTSTNUMX4)), 
’ BBBBBB IS MINIMUM TIME FOR TEST (STIMTBL(TSTNUMX402)), 
' CCCCCC 18 ACTUAL TIME RECORDED BY TEST (ATIME), 
;CALL$ MOVB TEST NUMBER,R2 ;LOAD TEST NUMBER 
; MOV OTIME, @OATIME SMOVE TIME TO ATIME 
; JSR PC, OUTSPC 
OUTSPC: MOV R2,°(SP) sSAVE R2 & R3 ON THE STACK 
MOV R3,=(8P) 
ASL R2 pMULTIPLY TEST @ TIMES 4 
ASL R2 1T0 FORM INDEX INTO STIMTBL 
MOV R2,R3 pR3 CONTAINS INDEX INTO TABLE 
TYPE, L,RNG 
MOV STIMTBL(R3),R2 sGET MAXIMUM SPEC TINE 
JSR PC, TYPDEC sCONVERT TO DECIMAL & TYPE 
TYPE, DASH 
MOV STIMTBLO2(R3),R2 1GET MINIMUM TIME 
JSR PC, TYPDEC }CONVERT TO DECIMAL & TYPE 
TYPE, ANGTAB 
TYPE,L,ACT 
MOV OCATIME,R2 $GET ACTUAL TIME 
JSR PC, TYPDEC sCONVERT TO DECIMAL & TYPE 
TYPE, CRLF 
MOV (8P)4,R3 
MOV (8P)o,R2 A 
RTS pc pRETURN 4 


ae 


DETUDeC TMO2 DRIVE FUNCTION TIMER 


063146 
603150 
003152 
003186 
003160 
003162 
063166 
003172 
003176 
803202 
003206 
003212 
003216 
063222 
003226 
063232 
003236 
003242 
603246 
603252 
003254 
003256 


003260 
003260 
003264 
603270 
063274 
003276 
003302 
603306 
003310 
003312 
003316 
603322 
003324 
003330 
063332 
003334 
003336 
003340 
063340 
003344 


010246 
610346 
116763 
606303 
006303 
000004 
616302 
004767 
690004 
016302 
004767 
000004 
660004 
613702 
004767 
6890004 
1137062 
604767 
600004 
012603 
012602 
000207 


604767 
012700 
612701 
685011 
605061 
1227108 
001414 
112062 
642702 
612763 
006311 
606161 
005303 
001373 
050211 
800761 


604767 
600207 


TYPE GAP TIMES SUBROUTINE 


pTHIS SUBROUTINE Ig USED TO TYPE THE SPECIFIED GAP SIZES (RECORDED In 
— IS CALLED BY THE GAPOK ROUTINE IF THE GAp SIZE Ig OUT OF 


MACY13 27¢732) 


1GeMAR©76 13366 PAGE 16 


pRANGE V THE HLT ROUTINE (HLT¢2), 
pCALLs MOVB @GAP, GAP gLOAD GAp @ INTO GaP 
fi MOV OTIMESATIME pLOAD ACTUAL TIME INTO ATIME 
a J8R PC, OUTGAP 
OUTGAPs MOV R2,°( SP) pSAVE R2 AND RJ 
MOV R3,°(8P) 
178742 MOVB GAP, R3 sGET GAP @ 
A8L R3 
ASL R3 
014645 TYPE,L,RNG 
001572 MOV GTIMTBL(R3),R2 9GET MAX TIME 
177840 JSR PC, TYPDEC sCONVERT TO DECIMAL & TYPE 
001405 TYPE, DASH 
001574 MOV GTIMTBLO2(R3),R2 sGET MIN TIME 
177824 JSR pC. TYPDEC sCONVERT TO DECIMAL & TYPE 
001412 TYPE, ANGTAB sTYPE < 
014655 TYPE,L,ACT 
001012 MOV OOATIME,R2 pGET ACTUAL TIME 
177504 JSR pC, TYPDEC sCONVERT TO DECIMAL & TYPE 
014334 TYPE,£,GAP 
001120 MOVE OOGAP,R2 GET GAP @ 
177362 JSR pc, TYPOCT sTYPE GAP @ 
001374 TYPE,CRLF 
MOV (SP)o,R3 sRESTORE R3 AND RZ 
MOV (8P)¢,R2 
RTS pc 
eS8TTL ASCII TO OCTAL CONVERT SUBROUTINE 
pSUBROUTINE TO CONVERT ASCII DATA TO OCTAL, CONVERTED OCTAL DATA 
918 LEFT IN OCTAL® <15e06>, 
CNVTAOs 
1797272 JER PC, -SAVE sSAVE REGISTERS ON THE STACK 
001264 MOV oINBUF,RO 9SET PTR TO ASCII DATA 
001116 MOV eOCTALO, Ri 9GET ADDRESS OF OCTAL DATA 
CUR (Ri) sCLEAR OUT OLD OCTAL DATA 
880002 CLR 2¢ri) 
000015 168 CMPB oCR, (RO) 9<CR> TERMINATES INPUT 
BEG 36 
MOVB (RO@)¢,R2 9GET °OCTAL® DATA 
1777708 Brc 0177770,R2 s8TRIP UNUSED BITS 
000003 MOV @3,R3 s8ET SHIFT COUNT 
263 A&L (Ra) SHIFT LAST 
008002 ROL 2¢ri) sOCTAL DIGIT 
DEC R3 
BNE 26 
Bis R2,(R1) pAND INSERT THIS DIGIT 
BR is 1600 GET wWEXT DIGIT 
36% 
177234 JSR PC, ,RESTORE pRESTORE REGISTERS FROM THE STACK 
RTS pc pRETURN 
» S8TTL PUBLISH SUBROUTINE 
v 





DETUD@©C THO2 DRIVE FUNCTION TIMER 
OZTUDC , P11 


733 
734 
738 
736 
737 
738 
739 
740 
741 
742 
743 
744 
748 
746 
747 
748 
749 
780 


803346 
603346 
003382 
603356 
003362 
003366 
003370 
063372 
003374 
#63486 
603402 
083404 


003406 
663410 
003412 
003414 


003416 
063422 
003424 
663426 
003430 
003432 


603436 
003442 
663444 
663452 
003454 
003456 
063462 
003466 
003472 


003474 
663476 
603502 
063506 


MACY11 27(732) 


PUBLISH SUBROUTINE 


pERATION CIF 16, ITERATIONS) AND PLACES THE AVERAGE RESULT IN “ATINE’, 
pif TYPES THE NAME OF THE FUNCTION THAT WAS TIMED, THE TINE SPECe 


SIFICATION AND THE ACTUAL TINE , 





IGeMAR©76 13306 PAGE 17 SEQ 0042 


INPUT SUBROUTINE 


PUBLISHs 
004767 177206 JSR PC, SAVE 
612708 001014 MOV OATINTBL, Ro 
113701 001121 MOVE © @eITCNT, Ri 
122781 es0ee: CHPB- oa, RA 
001423 BEG 4s 
€25283 CLR R2 
003003 CLR R3 
122701 900020 CHPB «0 16, RA 
001402 BEG 
e0ecee HALT 
000777 BR : 
062002 16s ADD (RO)¢)R2 
90550) ADC RB 
003301 bec Ri 
001374 BNE 18 
012708 600004 283 MOV 4,R0 
006203 308 ASR * 
906002 ROR * 
005300 DEC Re 
901374 BNE 46 
810237 001012 MOV R2, OOATINE 
413700 901122 48s MOVB = Oe TSTNUN, Re 
8063090 ASL Re 
016067 001672 eeeee2 MOV NAMPTRCRO),S8 
pe0ee4 TYPE 
—*2* Ses sWORD 0 
113702 001122 MOVE = Se TSTNUM, R2 
004767 177364 JER PC, OUTSPC 
604767 177106 JSR PC, »RESTORE 
900207 RTS BC 

,SBTTL 

pSUBROUTINE TO GET TrY INPUT 

sCALLS JSR PC, INPUT 

sINPUT DATA I8 RETUNED 
010046 »INPUT? NOV RO, °( SP) 
912700 001264 iss MOV eINBUF, RO 
105737 177560 261 TST.) 40s @eTKs 
100375 BPL 26 
113746 177862 MOVB Oe TKB, (SP) 
942716 600200 Bit 0200, (SP) 
122716 000177 CMPD «0 1177, CP) 
901004 BNE és 


124026 


GAVE REGISTERS OW THE STACK 


sGET TABLE ADDRESS CONTAINING TINES 
sGET @ OF ENTRIES (GIVEN BY ITERATION COUNT) 


sBRANCH IF SINGLE ITERATION 
sCLEAR °SUN° REGISTERS 

sORANCH IF 16, ITERATIONS 
ITERATION COUNT HUST BE 1 OR 16, 
900 NOT CHANGE POSIT OF Sui) 
pUHEN TEST 36 RUNNING, 


SUM INDIVIOUAL TINES 


sSHIFT TIME IN RIG AZ 4 PLACES 
pRIGHT @ DIVIDE BY 16, 

pMOVE AVERAGED TINES 

sGET TEST ¢@ 

sGET TEST WAME STRING ADDRESS 
sGET TEST @ 


sOUTPUT TINES 
sRESTORE REGISTERS FROM THE STACK 


U 
IN BUFFER BEGINNING AT INBUF, 
pSAVE RO ON THE STACK 


sGET CHARACTER 
sCHECK RUBOUT 
pREMOVE CHARACTER FROM INPUT 


C4 


3 
Cups (RO), (EP)¢ 
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DETUDC ,Pii INPUT SUBROUTINE 

789 603534 6090762 BR a8 sWAIT FOR NEXT CHARACTER 

798 603536 122716 9600025 363 Cups OCNTRLU, (SP) sCHECK CONTROL U (°U) 

791 603542 601004 BNE ae 

792 003544 605726 t8T (8P)¢ 

793 603546 800004 061374 TYPE,CRLF 

794 003552 600751 BR is 

79S 6023554 111637 061401 46% MOVB (8P),08ECHO 

796 003560 111628 MOVB CSP), (RO)* 

797 003562 122726 690015 CuPB OCR, (8P)¢ 

798 003566 601403 BEQ $6 

799 003578 600004 601401 TYPE, ECHO 

see 603574 800742 BR a6 

801 083576 880004 001374 S6e TYPE,CRLF 

802 003602 612600 nov (SP)¢,RO 

— 003604 600267 RTS pc 

64 

6es pKEYBOARD INTERRUPT SERVICE ROUTINE 

806 8003606 113746 177562 “TKISRe MOVE OeTKB, (SP) sGET TYPED CHARACTER 

807 903612 842716 600200 sic 6200, (8P) sSTRIP PARITY BIT 

60g 003616 122716 0808017 Cups oCNTRLO, (SP) sORANCH IF WOT CONTROL O (°O) 

809 603622 601003 BNE is 

610 003624 112667 176475 MOVB (SP)¢,6CNTRLO  ,SET CONTROL O INDICATOR IN TYPE ROUTINE 

a 603630 6090002 RTI pExIt 

i 

613 ©603632 122726 0609003 18s CMPB «dé 3. CBP) @ sBRAWCH IF NOT CONTROL C (°C) 

614 603636 0010903 BNE a6 

815 603640 9890005 RESET 

816 003642 900137 005724 JMP OCINIT pRESTART PROGRAN 

017 003646 690002 283 RTI pOxIt 








o 
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DETUDC Pil ERROR SERVICE ROUTINES 
eS 618 S8TTL ERROR GERVICE ROUTINES 
819 pROUTINE. TO PROCESS ERROR TRAPS (TRAPS TO 4) 
+94 003650 890000 ERRTRPs HALT 
21 
e 622 sERROR SERVICE ROUTINE 
923 pTHIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 
@ 624 sTHE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT¢1>,<HLT¢O2> AND, FOR A 
825 pHARDWARE ERROR THE CALL 18 <HLT>, 
626 
@ 827 003652 004767 176112 eMLTs don PC, CKSwR pCHECK FOR CHUTL G 
826 603656 604767 176674 JSR PC. SAVE SAVE REGISTERS OW THE STACK 
629 003662 1109637 601123 Lee MOVB SP, OOERFLG s8ET ERROR FLAG 
@ 830 603666 632777 020000 175104 817 66W13,06WR pSRANCH IF HO TYPOUT 
831 0663674 6091075 BNE 46 
832 003676 890004 614135 TYPE, £ WOR 
g 833 803702 113702 0601122 MOVE OOTSTNUM, RZ sGET TEST 6 
634 063706 0604767 176716 JSR PC, TYPOCT pAND TYPE IT 
835 603712 616600 900016 MoV 16(SP),RO pGET RETURN PC 
& 636 603716 162708 9890002 sus 02,R0 pHOw PC OF HLT CALL 
837 003722 111000 Move (RO), RO pWOW HLT CALL ITSELF 
638 003724 601417 BEO ae pBRANCH IF KLT 
@ 639 0603726 800004 614220 TYPE, £ NOR 
640 003732 122708 900002 Cups 62,R0 pORANCH IF WOT HLTo2 
641 603736 601005 BNE 106 
3 842 003740 804767 177202 JSR PC, OUTGAP TYPE GAp SPECIFIED TIMES 
843 003744 9890004 0601374 TYPE,CRLF 
644 603780 600447 BR 4g 
2 845 683752 084767 177074 108% JSR ec, OuTSPC TYPE SPECIFIED TINES 
846 803756 600004 001374 TYPE,CALF 
847 003762 000442 BR $8 
a 848 003764 616500 600014 26% MOV ER(RS),RO 
849 603770 632765 882000 0900032 BIT @PE1600,TCC(RS) 
658 603776 9801403 BEO 208 
@ 851 694000 642780 102100 Bric €102100,R0 
052 904004 600402 or 218 
653 804006 842780 102300 2068 ec 6102300,R0 
O 854 604012 605700 2188 7687 ae 
65S 604014 601083 BNE 226 
056 804016 890004 014111 ming sTYPE SOFT ERROR MESSAGE 
@ 657 604022 800434 6 
ese 
659 0604024 890004 614145 2268 —— 
O 860 004036 610500 RS,RO sGET FIRST ADDRESS OF REGS, 
861 004032 0612781 0900007 NOY 07 eRi sTYPE FIRST 7 REGS, 
862 604036 6812002 368 MOV (RO), R2 sGET REG CONTENTS 
G 863 80804040 604767 176564 JSR pC, TYPOCT AND TYPE IT 
864 004044 8090004 0601407 TYPE, SPACE2 
865 6804058 605301 DEC Ri 
@ 866 604052 601371 BNE a6 
867 604054 6165802 900032 MOV TC(RS),R2 sGET CONTENTS OF TC REGISTER 
868 604060 604767 176544 JSP pC, TYPOCT 
& —* 004064 800004 001374 TYPE,CRLF 
871 604076 632777 001000 174702 46: 817 06009, osun pBRANCH IF WO RING THE BELL EY 
872 804076 0601402 BEO $6 


— 673 084108 Senne, 001403 yO EL —— — — — — 





e 
2 
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DETUDC, Pil ERROR SERVICE ROUTINES 
@ 874 004106 605777 174670 56s TsT osun sHALT OW ERROR? 
075 904118 190001 BPLtiték 
876 904112 Sescee = HALT 
& 077 004114 004767 1758688 68s J8R =—s_s« PC, exsun sCHECK FOR CHTL G 
878 004120 004767 176484 JER BC,» RESTORE pRESTORE REGISTERS FROM THE STACK 
879 004124 90002 RTI RETURN 
2 ae 
Ty" 
9 
& 
® 
S 
8 
@ 
g 
o 
& 
a 
& 
2 
@ 
@ 
3 
Fu 








OETUD9C THOZ ORIVE FUNCTION TIMER 
DETUDC , Pil 


802 
863 
04 
oes 
06 
607 
ee 
609 
@o8 
691 
692 





123726 


SCOPE SUBROUTINE 


178636 
001010 
000400 


001122 
176674 
640000 
000546 
000776 
001123 
174574 
060012 


001123 
001121 
001012 
001121 
004000 
600020 


177034 
001121 
174456 


174480 
177740 


174634 


174614 


001014 
174820 
001121 


174474 
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.SOTTL SCOPE SUBROUTINE 
1SCOPE ROUTINE 
STHIS ROUTINE 18 ENTERED UPON COMPLETION OF EACH SUBTEST 
— SCOPE ROUTINES 
: OUTPUTS TINE SPEC ON EACH ITERATION IF gwOe Is SET 
' REPEATS TEsT IF B¥i4 18 SET 
' STORES ACTUAL TINE FOR FUNCTION IN TINE TABLE (ATINTBL) 
: PUSLIGNES TINE IF swi980 
; UPDATES ITERATION COUNT AND IF ISERATION COMPLETE CONTINUES 
’ 70 WEXT TEST, OTHERWISE REPEATS TES 
; DELAYS BEFORE CONTINUING OR REPEATING TEs, 
' SNITIALIZES DRIVE 
pRETURNSs RSSBASE ADDRESS OF THO2 REGISTERS (ADDRESS OF C81) 
: Rie°DS* REG ADDRESS 
' ROS°FC* REG ADDRESS 
SCOPES JER pc, exaun sCMECK FOR CHTL G 
NOV OoTMBASE, RS sSET RS TO FIRST TH REG 
BIT oswoe, oar sORANCH 37 SPECIFICATION LINE 
Tz) 108 sNOT DESIRED ON EACH ITERATION 
MOVB © 90 TSTNUN,R2 sGET TEST SUNDER 
JSR PC, OUTSPC 1OUTPUT TINE RECORDED 
108s = BIT 05014, 05uR sORANCH IF CONTINUOS LOOP 
Tr) 28 pNOT DESIRED 
18s JR PC, DELAY pOELAY 390 KB 
JER PC, RMINIT sINIT 
CLRB 0s: OSERFLG PCLEAR ERROR FLAG 
MOV SCPADR, (SP) 
MOV RS,RI 
ADD — pADDRESS OF °DS* REG I8 IN ai 
MOV RS, RO 
* —8B— pADDRESS OF °FC* REG 16 Im RO 
* 
261 r zeerie daauen IF ERROR FLAG 18 SET 
MOVE © OSI TCNT, RO 1GET ITERATION COUNT 
ASL Re sSTORE TIME IN TABLE 
MOV OOATINE, ATINTBL( RO) 
YT) INCB Oe TCHT pINCRENENT ITERATION COUNT 
ert eauit,ooun SBRANCH IF SINGLE ITERATION DESIRED 
cups 016, ,00rRCur pORANCH IF ITERATIONS INCOMPLETE 
1 | 
46s Mov (3P) ,0SCPADR $SET SCOPE ADORESS TO NEXT TEST 
BIT 08W10,06uR sORANCH IF NO PUBLICATION DESIRED 
ene rT 
Jar PC, PUBLISH 160 PUBLISH TEST DATA 
Ses CLRB 8s SO TTCNT pRESET ITERATION COUNT 
TST} 0 oswR sORAWCH 3F USER DOES NOT WANT TO 
BEO ‘8 pHALT ON A SELECTED TEST 
MOV OSuR,-( SP) 1GET SWITCHES 
BIC 0177746, (8P) sCLEAR ALL BUT TEST ¢@ 
(SP) pFORM TEST 6 of Gt 
OeTSTNUM, (8P)¢ pORANCH IF WOT AT TEST 











DETUD9C TNO2 ORIVE FUNCTION TIMER 
DETUDC .Pii 


004364 
004346 
004352 


GHae80 
004767 
000705 


605004 
012763 
632765 
601405 
032765 
001374 
000405 


605403 
032765 
001774 
000207 


032765 
001406 
000112 


384444 
803403 
005204 
100401 
600112 
89004 
104400 
000177 


004470 
032765 


SCOPE SUBROUTIN 


178416 


014246 
1743134 


000024 


—— 27€732) I8eMAR©76 139606 PAGE 22 820 0047 
HALT 
JSA PC, CKSwR sCHECK FOR CHTL G 
&R is 


eSBTTL TIMER SUBROUTINES 


SSUBROUTINE TO SYNCHRONZZE THE TIMER AND TURN IT On, 

pREGIGTER @ 38 CLEARED, AND THE OSCILLATOR POLARITY I8 MONTTORED 
OTHE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH AI 
gSET TO INDICATE THE POLARITY OF THE OSCILLATOR, 


CALLE JSR PC, TIMON 
pRETURNSS 4 9— TO INOICATE LAST POLARITY (¢24/02400/1) 
9 * 
TIMONs CLR Re sCLEAR TrMg Count 
MOV 02453 pSET POLARITY TO °9* STATE 
SIT e06C,MRC(RS) SBRANCH ZF POLARITY I6 °° 
LJ a) 26 
iss = 808C ,MRCRS) SMAZT FOR OSCILLATOR TO RETURN 
18 
BR a@ 
26% WEG BG sWEGATE PREV POLARITY INOICATOR 
36s sit 00sC, Maracas) pWATZ FOR OSCILLATOR TO RETURN 
BEG bu TO °4° STatE 
be RTS ec 


sSUBROUTINE TO COUNT TIME 
sEACH TIME THE OSCILLATOR TOGGLES (BIT <og> IN MR REG) REGISTER 
OR4 38 INCREMENTED, AND THE REGISTER Ad Ig NEGATED TO INDICATE 
pTHE LAST STATE OF THE OSCILLATOR, 
pRd 38 SET BY TINON ROUTINE 


sCALL 8 JMpP TIMERCR3) 
i R2GRETURN ADDRESS TO CALLER 

pMOTEs THE TINE TO EXECUTE THIS ROUTINE Ig VERY CRITICAL, If MUST BE 
sLESS THAN 48 US, 


pEWTER HERE VIA JMP TIMER(R3) WHEN R38024 (PREV STATES} ) 
_  pORANCH IF CURRENT STATE 10 °@° 


TIMERIs BIT 00sC, MRC RS) 
B10 TIMER 960 INCREMENT TINE 
JMp (R2) sRETURN FO TEST 
oSTIMERI 0246 
TIMERS NEG r3 OWEGATE PREV STATE INDICATOR 
rnc Ra pINCREMENT °TICK® CouNT 
BMY TIMERR sBRANCH OW OVERFLOW 
JMP (R2) pRETURN 7O TEST 
TIMERRE TYPE,E,TIMOV sTYPE °TIMER OVERFLOWED? 
HLT pREPORT HAROWARE ERROR 
JMp OSCPAOR pRETURN FO BEGINNING OF TEST 
oSTIMERS24 


pENTER HERE VIA JMP TIMER(R3) WHEN R9C024 (PREV STATESO) 


TIMERS; BIT — 906C, MRC RS) sORANCH 37 CURRENT STATE © °3° 
BNE = TIWER HY 
uup (RB) 








— 


004802 
004502 
004506 
004512 
004514 
004516 
004520 
004622 
604524 
004526 
0043530 


004532 
604534 
004540 
604544 
064546 
604552 
004556 
004560 
004562 
604870 
004572 
064600 
004602 
004604 
004604 
004610 


004767 
012700 
010401 
003002 
00500) 
060002 
0053583 
003301 
001374 
610246 


010346 
012746 


176080 
0000708 


001012 
001122 
001012 
001012 
101001 
104401 


004767 
000207 


1757708 


004612 
004612 
004616 
004622 
004624 
84626 
6946308 
004632 
8866304 


004767 
012700 
010401 
605002 
60500) 
608882 
00550) 
00830: 


175740 
oe 070 


1047 


DETUD@C THO2 DRIVE FUNCTION TINER 
TIMER SUBROUTINES 


001416 
001420 
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}SUBROUTINE TO CHECK TINE RECORDED BY SUBTEST, 
STHIG SUBROUTINE COMPUTES THE ACTUAL TINE (IN NICROSECONDS) AND CHECKS 
PTHAT THE TINE RECORDED BY THE SUBTEST 16 CORRECT BY COMPARING THE TINE 
sWITH THE HIGH LIMTT (OTINTBLCRO)) AND THE LOW LENET COTINTBLea(RO)), 
117 THE TINE 18 OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS, 
STHE SUBROUTINE I8 ENTERED WETHS 
' RésTICK COUNT 
TIMOR! 
Jar PC, SAVE )GAVE REGIQTERS OW THE STACK 
HOV 056, ,R0 1GET TINE PER TICK 
MOV Ra, Ri sGET TICKS COUNT 
cur a SCLEAR GUNNING REGISTERS 
R 
16s ADD RO,R2 sMULPIPLY TINE PER TICK 
ADC ĩ BY TICK COUNT 
DEC ai 
onc. 46 
MOV R2,°(8P) sOIVIOE COUNT BY 10, 
MOV R3,°( SP) 
MOV 010.0 °C8P) 
Jar PC, DIVIDE 
13? (SP)e POISCARD REMAINDER 
MoV CSP)o, OCATINE p6TORE QUOTIENT 
MOVB OeoTSTNUN, Re sGET Test ¢@ 
ASL Re 
A8L RO 
chp OOATINE, STINTBL(RO) ;CHECK THAT TINE Ig WITHIN 
BHI 20 )LIMITS SPECIFIED 
CHP OOATINE, STINTBLO2(RO) 
BHI 38 
_ ALT sCALL ERROR ROUTINE 
63 
JSR pC, ,RESTORE sRESTORE REGISTERS FROM THE STACK 
RTS pc pRETURN 
SSUBROUTINE TO CHECK INDIVIDUAL GAP TINES (PRODUCED BY 187021) 
;SUBROUTINE COMPUTES THE ACTUAL TINE (IN MICROSECONDS) AND CHECKS 
STHAT THE GAP TINE RECORDED BY THE SUBTEST (181021) BY COMPARING THE 
pTIME WITH THE MAX LIMIT (GTIMTBLeGAPTBL(R{)) AND THE MIN LIMIT 
}(GTINTBLO2eGAPTBL(R1)), 
sCALLs MOV TICK COUNT, RE gR4 CONTAINS TICK COUNT 
} MOVB = 9GAD, @0GAP )LOCATION GAP CONTAINS GAP 6 
1 J8R PC, GAPOK 
GAPOKs 
usr PC, SAVE pSAVE REGISTERS ON THE STACK 
MOV 056,,R0 GET TIME PER TICK 
MOV Ra, Ri GET TICK COUNT 
cur na }CLEAR SUMMING REGISTERS 
LR R 
TT ADD RO, R2 pMULTZPLY TICK COUNT 
anc nd OY TINE PER TICK ry 


a 22S ee 





DZTUD9C THO2 ORIVE FUNCTION TIMER 


OSTUDC pii 


G84648 
004642 
004644 
004650 
004654 
004656 
004662 
O546666 
O84678 
004672 
004700 
004702 
004710 
004712 
004714 
004716 
004724 
£94726 


004732 
604732 


004736 


004740 
004744 
004746 
004752 
004752 
004756 
004762 
004764 
004766 


004778 
004774 
004776 
005002 
005004 
0050108 
005010 
005014 
005020 
005022 
005024 


TIMER SUBROUTINES 


010246 
010346 
012746 
004767 
005726 
612637 
113703 
00630) 
006303 
023763 
101004 
023763 
101002 
104402 
099406 
632777 
O61 489 
004767 


004767 
000207 


004767 
010246 
612702 


900163 
032704 
001773 
012602 
000207 


005767 
001413 
004767 
010246 
012702 


000163 
623704 
101373 
012602 
800207 


880400 
176214 


178642 


177410 
004756 


004444 
004000 


174120 
177382 
005014 


004444 
001114 


001572 
001574 


174084 
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MOV R2,°(8P) 


pOLVIOE TINE BY 10, 
MOV R3,°(8P) 


Mov 010,0°CSP) 
JSR PC DIVIDE 
787 (8P)¢ sOISCARD REMAINDER 
NOV (SP) o,O0ATINE pSTORE QUOTIENT 
Move OOGAP,R3 sGET GAP ¢@ 
ASL A) sMULTPLY BY 4 
AGL 3 970 GET AT TASLE ENTRY 
hor —— nates pCHECK TIME (MAX) 
B $ 
— OOATINE,GTIMTBLO2(R3) vpeuten TIME (HIN) 
B 38 
268 —— aes SREPORT OUT OF RANGE ERROR 
100 
Jes sit osuod, oaun SBRANCH IF TINES NOT WANTED 


1006 

JGR pC, OUTGAP TYPE GAp TINES 

10088 
JSR PC, RESTORE pRESTORE REGISTERS FROM THE STACK 
RTS ec pRETURA TO TEST 


, S8TTL DELAY SUBROUTINES 
pTHIS SUBROUTINE CAUSES A DELAY OF 360 MB, 
DELAYs JR PC, TIMON 

MOV R2,°( SP) sSAVE R2 OW THE STACK 
MOV 026,n2 . %6ET RETURN ADDRESS FOR TIMER 


100 

JMpP TIMERCR3) 960 TO TIMER & RETURH VIA RZ 
268 Bit 04060,R4 

BEQ 16 

MOV (SP)o,R2 pRESTORE RQ 

RTS pc 
sTHIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY (UP TO 6548,) 
sCALLs MOV DELAY TIME,DELTIN pLOAD DELAY TIME (18 US) 
’ JSR pC, DELAYV 
DELAYVs ood DELTIN pSRANCH If © DELAY 

0 38 

JER PC, TIMON sTURWN TIMER OW 

MoV R2,°( SP) pSAVE R2 OW THE STACK 

MOV 026,R2 SET RETURN ADDRESS FROM TIMER 
16% 

JMP TIMERCR3) 960 TO TIMER & RETURN VIA R2 
26% cup OODELTIN, RE 

BHI is 

MOV (SP)¢,R2 pRESTORE RQ 
383 RTS pc 


eSBTTL DIVIDE SUBROUTINE 
pTHIS SUBROUTINE DIVIDES A DOUBLE PRECISION © AND RETURNS THE RESULT 
TO THE CALLER OW THE STACK, BOTH DIVIDEND & DIVISOR MUST BE POSITIVE, 
pCALLs OV LEAST SIGNIFICANT HALF DIVIDEND, o(8P) 


v4 
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DETUDC , P11 DIVIDE SUBROUTINE 
1106 1 MOV ODIVIGOR, ©( SP) 
11067 5 JSR pC DIVIDE 
1108 sRETURN 
1109 ⸗ CSP)SREMAINDER OW STACK 
* 5 2(6P)SQUOTIENT 
te SMOTES THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1,R2 & RB, 
1114 005026 605046 DIVIDE; CLR °(6P) pSAVE LOC FOR SIGHS 
1115 605030 0612746 600021 MOV 917,0°C8P) SET ITERATION COUNT 4 
1116 605034 616661 690012 nov 12¢8P),Ri . sGET LEN OZVIOEND 
1117 68090468 616600 600010 MOV 10(6P),RO sGET MSH DIVIDEND 
1118 608040 616602 900006 nov 6(SP),R2 sGET OIVIGOR 
1139 985050 605462 WEG we pWEGATE DIVISOR 
1126 005052 60024: Cue - gCLEAR °C? OTT In paw 
1121 805054 600405 BR 26 
1122 905056 606106 ies ROL uid rong A NSH DIVIDEND 
1123 695066 610003 MOV RO,R3 pGAVE RY 
41124 605062 669203 ADD R2,R3 ySUDTRAC? OIVISOR FROM NSH DIVIDEND 
1125 005064 1063001 Bcc 28 BRANCH IF DIVIDEND > pavison 
1126 605066 610300 MOV R3,RO pSAVE REMAINDER IN RO 
1127 605070 606101 28s ROL Ri sROTATE LOH DIVIDEND 
1128 605072 005316 orc (SP) sDECRENENT ITERATION COUNT 
1129 905074 601370 BNE is 
1138 608076 005726 T8T (8P)¢ pPOP ITERATION COUNTER 
1131 605100 005726 T8t (SP)¢ POP SIGH CORRECTION 
1132 005102 610166 6090006 MOV R1,6(8P) pPUSH REMAINDER OW STACK 
1133 6051806 610066 000004 MOV RO, 4( SP) sPUSH QUOTIENT ONTO STACK 
1134 005112 612616 nov (SP), (SP) 
4 
KY 








DETUDeC THO2 ORIVE FUNCTION TIMER 
DETUDC ,Pil DIVIDE SUBROUTINE 


te 005114 600267 


1142 0059116 113765 
$143 005324 632765 
1144 905132 601063 
1145 605134 604767 
1146 005140 600262 
1147 008142 600207 


2 
1153 605144 113768 
4184 005152 113765 
1158 805166 632765 
005166 601001 
1187 605178 600262 
1158 008172 690287 


2 
1163 005174 612765 
1164 605202 113765 
1165 005216 6905046 
1166 905212 113716 
7 609216 


1168 005222 052765 
aoe 005238 600207 


001004 
0400008 


601664 
001005 
8020068 


060012 
177764 
014273 
002000 
013330 
013656 
000032 
000106 


177712 


0800012 
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RTS pe 


x's ge re 
ssuenourine. 70 CHECK IF DRIVE 26 AVAILABLE 
sCALLs OVD teste 


J JR PC, ORV 
pRETURN “ce ort. oer If NOT AVAILABLE 
ORVAVAS MOVB OODRYNUN,CE2(RS) sLOAD DRIVE 
* re pCHECK If TAPE UNIT 
Jar PC, RHINIT 
stv s8ET °V* TO IND NOT AVAIL 
16s RTS ec pRETURN 
pSUBROUTINE TO CHECK IF TU16 — 16 AVAILABLE FOR TEST 
— wove ORIVE 6, 000RVRUN PASE DRIVE © VIA ORVEUN 
MOVB SLAVE 6, 008LVNUN —8 SLAVE @ VIA SLVNUN 
JSR PC, SLVAVA CALL ae 
Suvavas MOvB OODRVNUN,CE2(RS) LOAD DRIVE 8 
nove OCSLVNUN, TCCRS) gAuD SLAVE 6 
te —— pSRANCH SF SLAVE PRESENT 
B 
stv pSET °V* TO INDICATE HO SLAVE 
163 RTS pc 


pSUBROUTINE TO INITIALIZE RH CONTROLLER 
sCALL# 9=6JSR PC, RHINIT 


RHINITs HOV 040,C62(RS) 
MOVB 


OPORVNUN,CB2(RS) 
CUR °(8P) 
MOVB  O6SLVNUN, (SP) 
MOV (8P)¢,TCCRS) sLOAD SLAVE @ INTO TC REG 
ars SNORMLS » TCCRS) 
RTS pc 
SSUBROUTINE TO WAIT FOR DRIVE READY (DRY) 
WAITRDYSCLR (PC)¢ sCLEAR WAIT TINER 
WAITTING , WORD 
188 7878 —X pWAIT FOR READY TO SET 
BMI e 
INC WAITTIN pINCREMENT WAIT TIMER 
BNE is SBRANCH IF TINE HAS NOT EXPIRED 
TYPE, £, TIMEXP STYPE TIME EXPIRED WAITING FOR ROY? 
BR 998 STAKE ERROR EXIT 
268 Bit s£0T, DS(RS) sCHECK FOR SND OF TAPE 
BEO 36 sBRANCH IF HO EOT 
TYPE, M, WAM 
TYPE, M,EOT sTYPE END OF TAPE? 
JSR pC, ,REWIND SREWIND gLAVE 
BvS 998 sBRANCH ZF ERROR OW REWIND 
JSR PC, WRITE SWRITE A RECORD 
TT (RS) )8ET °GO* BIT 
JBR pC» WAITRDY sWAIT FOR READY Ly 
BR STAKE ERROR EXIT 


| 7 1190 905322 032766 840008 000012 38% peal 7 eae “HOP, peasant > —— 


— — 


“ 


1191 605330 001401 
1192 ©69332 606262 
pee 605334 990207 


| 
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DETUDC Pil DRIVE SUBROUTINES 


1006 
996% SEV 
1006s = RTS pc 








m4 
——— — — — — — — — —— — — 


bh 
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MACY11 270732) 18eMAR©76 13106 PAGE 20 


sSUBROUTINE TO REWIND A UNIT (DRIVE/SLAVE COMBINATION) 
sCALL MOVB DRIVE 6,0¢DRYNUM 





AS 





oO 
@ 
@ sareee.sii wey Ft pte. MACY14 27(732) i1@eMARe76 138606 PAGE 29 ji SEQ 0054 
o om ed pe 
1199 SSUBROUTINE RETURNS TO CALLER WITH SELECTED 6LAVE AT °BOT’, & °V*® SET IF 
e 1208 gAN ERROR OCCURS, 
° 1202 005336 004767 177632 eREWINDS JSR PC, RNINIT pINITIALIZE CONTROLLER 
@ 
@ 
& 
S 
O 
O 
@ 
@ 
oe) 
8 
e 
ie) 
2 
re) 
_ Be 
oO 





DZTUD9C TMO2 DRIVE FUNCTION TIMER 


1203 
1204 
1205 
1266 
1207 
12068 
1209 
12108 
1211 
1212 
1213 
1214 
1215 
1216 
4217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1238 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1231 
1252 
1253 
1254 
1255 
1286 
1287 
1288 


005342 
005346 
005350 
005352 
005354 
005356 
005360 
005366 
005370 
005376 
0035400 


003402 
005410 
005412 
005414 
005416 


005420 
005424 
005426 
005430 
005432 
005434 


005436 
005442 
005444 
005446 
005450 
005452 


005454 
005460 
005462 
005464 
005466 
005470 


005472 
005500 
005504 
005510 


DRIVE SUBROUTINES 


004367 
869808 
8006 
600000 
8880606 
005215 
032765 
001005 
632765 
601006 
000767 


632765 
001374 
0060401 
600262 
6609207 


004367 
815700 
1776008 
1774008 
600068 
000207 


604337 
6157060 
177600 
177400 
800070 
000207 


004367 
016300 
177600 
1774008 
000076 
000207 


012765 
612715 
004767 
600207 


A 


040000 


000074 


177777 
000031 
177822 


777062 





MACY11 27(732) 1@eMAR©76 13406 PAGE 30 SEQ 0055 
JER R3, THCHD 960 TO TH COMMAND SUBROUTINE 
eWORD 6 sBUS ADDRESS (NOT USED) 
eWORD @ sWORD COUNT (NOT USED) 
eWORD 8 SFRAME COUNT (HOT USED) 
eWORD RWD sREWIND COMMAND 
INC (RB) 9SET °GO? BIT 

iss BIT oB0T,DS(RS) pBRANCH IF °BOT? SET 
BNE 28 
BIT oERR,DS(RS) sCHECK ERROR BIT 
BNE G98 pORANCH If ERROR BIT SET 
BR 18 

283 a — pWAIT FOR TAPE MOTION TO STOP 

& 
BR 1008 

9988 SEV 

1006s 478 pc 

pSUBROUTINE TO WRITE 256, WORD RECORD 

sCALLs JSR PC, WRITE 

WRITES JSR R3, THCMD 160 TO Tu COMMAND SUBROUTINE 
eWORD wTrBUPF 98US ADDRESS 
eWORD WROCNT s¥ORO Count 
e¥ORD FRHCNT sFRAME COUNT 
eWORD 8 wFwd pWRITE FORWARD COMMAND 
RTS pc 

PSUBROUTINE TO READ A 256, WORD RECORD, 

sCALL¢ = J6R pC, READ 

READ: 8 §JSR R3,0eTHCHD 
eYORD ROBUF pADDRESS OF READ BUFFER 
eWORD WRDCNT 92°S COMPLEMENT OF WORD COUNT 
eWORD FRHCHNT 92°S COMPLEMENT OF FRAHE COUNT 
eWORD RDF WD pREAD FORWARD COMMAND 
RTS pc 

pSUBROUTINE TO INITIATE READ REVERSE COMMAND 

sCALL# JSR PC, REVRD 

U 

REVRDs JSR R3, TMCMD 
eWORD ROBUFO2ZS6, pADDORESS OF READ REVERSE BUFFER 
e¥ORD WROCNT 92°S COMPLEMENT OF WORD COUNT 
eWORD FRMCNT 32°@ COMPLEMENT OF FRAME COUNT 
eWORD ROREV pREAD REVERSE COMMAND 
RTS pc 

sSUBROUTINE TO SPACE FORWARD 1 RECORD 

FwuDsPcs MOV oe, -FCC(RS) pLOAD RECORD COUNT 
MOV OSPCFWDe1, (RS) sLOAD COMMAND 
J6R pC, WAITROY pWAIT FOR READY 
RTS ec pRETURN 


aes tae TO WRITE A RECORD AND BACK SPACE OVER THE RECORD, 





DZTUD©C TMO2 ORIVE FUNCTION TIMER MACYI1 27€732) 10eMAR©76 13:06 PAGE 31 SEO 0056 
DZTUDC P11 DRIVE SUBROUTINES 

1289 @05516 605215 we Rs) s8ET °GO* BIT 

1260 008520 004767 177506 JBR PC, WAZTROY 

1261 005524 102412 BVS 16 

1262 ©08526 612768 177777 seeces MOV 001, FC(RS) sLOAD RECORD Count 

1263 005834 012718 699033 MOY OSPCREVO1, (RS) pLOAD COMMAND 

1264 905540 004767 177466 Jar PC, WAITROY 

1265 006544 102402 BvS 28 

1266 905546 004767 177166 16s Jar PC, DELAY sWAIT FOR TAPE NOTION TO STOP 

1267 905852 900207 208 pte Pc 

i 

1269 sSUBROUTINE TO LOAD A COMMAND 

1270 sCALLE JSR Rd, THCMD 

1271 ' »WORD BUS ADDRESS 

1272 ' eWORD WORD COUNT (2°S COMPLEMENT) 

1273 i eWORD FRAME COUNT (2°S COMPLEMENT) 

1274 H eWORD COMMAND 

1278 

1276 05854 612368 seseees TMCMDs MOV (R3)o,BACRS) pLOAO BUS ADDRESS 

1277 905868 012368 600002 MOV (RD), WCCRS) sLOAD WORD CouNT 

1278 605964 012368 eesees MOV (R3)o,FCCRS) sLOAD FRAME COUNT 

1279 903876 012318 MOV (RB) 0, (RS) pLOAD COMMAND 

1288 005572 090203 RTA A} pRETURN 

1261 

1282 pSUBROUTINE TO PRINT TU16 SERIAL RUNBER 

1203 sJ8R = DC, SNPT 

1204 

1205 05574 016503 66060030 SPT; NOV SNCRS),Rd 

1286 905600 612701 001144 MOV eODIGITS, Ri 

1207 005604 000303 swAB un 

1288 605606 906003 ROR RB 

1289 905610 906003 ROR wy 

1290 605612 606003 ROR a} 

1291 005614 966003 ROR Rd 1GET FIRST DIGIT 

1292 605616 042703 177768 BIC 0177760,R3 

1293 605622 052703 990260 Bis 0260,R3 

1294 905626 110321 MOVB =s_ RB, (RA)e SFILL FIRST DIGIT 

12953 005630 616503 escere MOV SN(RS))R3 

1296 005634 900303 SvAD RD 

1297 905636 042703 177760 BIC 0177760,R3 

1298 005642 052703 900260 B18 6260,R3 

1299 905646 110321 MOVB = RB, (R1)> 1GET SECOND DIGIT 

1308 005650 016503 secre MoV SN(RS),R3 

1301 605684 996003 ROR 53 

1302 088656 906003 ROR R3 

1303 005660 906003 ROR na 

1304 005662 966003 ROR a3 

1305 005664 64270) 177760 BIC 0177760,R3 

1306 605670 052703 096260 Bis 8260,R3 

1307 005674 110321 MOVB = RB, (RA) 1GET THIRD DIGIT 

1308 005676 016503 eeeere MOV SN(RS),R3 

1309 905702 842703 177768 BIC 0177760,R3 

1310 605706 052703 000268 B18 9260,R3 

1311 005712 110321 MOVE = RB CRA) 1GET FOURTH DIGIT 

1312 005714 108011 CLRB (RA) D5 

1313 685716 se00e4 001144 TYPE, ODIGITS STYPE SERIAL WUNBER 


1314 608722 #90026 
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13158 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1336 
1331 
1332 
1333 
1334 


005724 


008730 
005734 
005740 
005746 
008754 
065786 
005760 
608762 
803770 
008774 
006000 
0806006 
606010 
006014 
006020 
006624 
6060630 
006034 
006048 
606046 
606084 
006060 
006064 
006070 
006074 
606100 
006104 
006112 


012706 


013746 
013746 
012737 
622777 
061402 
600404 
022626 
012767 
012637 
012637 
622737 
001002 
064767 
105037 
105037 
1050637 
103037 
105067 
012737 
612737 
005037 


806664 
600004 
868064 
004767 
004767 
013737 
013705 


000261 
005715 
103003 
GhueHs 
600675 
012737 


060006 
000004 
0e5760 
1977797 


000176 
060004 
885686 
000176 


174014 
001124 
001121 
001122 
061123 
173076 
068006 
000002 
001264 
001374 
013330 
013376 
178374 
178184 
001116 
001010 


013715 
003680 


600004 
173024 


173610 


001010 


6080004 
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eSBTTL PROGRAM INITIALIZATION 


INITe MOV OSTKPTR, SP pSET STACK PTR 
SUSWR: MOV 066,°( SP) pSAVE VECTORS 
MOV 004,0e(8P) 
MOV 0616,004 pSET UP FOR TIMEOUT 
cuP °1,98WR PREFERENCE HARDWARE SWITCH REGISTER 
BEQ GBs 
BR 648 
6168 Cup (SP)o>(8P)¢ sADJUST STACK 
6068 MOV OSWREG, BWR pPOINT TO SOFTWARE SWITCH REG 
6263 MOV (8P)¢,004 SRESTORE VECTORS 
MOV (SP)¢, 006 
CMP OSUREG, COUR 
BNE 648 
JSR pC, CNTLU 
$484 CURB OOPRGFLG pCLEAR PROGRAM FLAG 
CURB eertcnt sCLEAR ITERATION COUNT 
CURB OCTSTNUN 98eT TEST 6 6 
CLRB OOERFLG pCLEAR ERROR FLAG 
CURB ASFLG pCLEAR ASK FLAG 
MOV GERRVEC 02, OOERARVEC 
Mov ORTI, OOERRVEC SR pCHECK IF °LP* 36 AVAILABLE 
263 CLR OeINBUP 
TYPE,CRLF 
TYPE, M NAM sTYPE TITLE 
TYPE, 1, REG pASK USER TO TYPE CONT BASE ADRS 
JSR pC, , INPUT sGET USER INPUT 
46s JSR pC, CNVTAO sCOMVERT ASCII TO OCTAL 
mov OPOCTALO, OOTHBASE 9SET wEW ADORESS 
56s MOV OOTMBASE, RS 


pROUTINE TO CHECK If CONTROLLER (RHi1) I6 AVAILAABLE 
BEC pSET °C* IN Paw 


oe pe pBRANCH IF CONTROLLER AVAIL 
8 

TYPE,E, neon 

BR INIT 
Gan MOV CERRTRP, OOERRVEC pSET ERROR TRAP VECTOR 


— 
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DETUDC P11 PROGRAM INITIALIZATION 
a 1388 pROUTINE TO GET TMO2 DRIVES USER DESIRES TO TEST 
1386 606140 108037 001123 ORIVESs CLAB OCERFLG CLEAR ERROR FLAG 
1357 006164 612703 001154 NOV OORVTBL, Ri pMARK ALL ORIVES Ag NOT TO 
S 1386 606180 612700 900004 MOV 04,R0 98@ TESTED, A °° INDICATES 
1389 006184 605021 ioe CLR (Ride pTHAT A DRIVE Is "OT T0 BE 
$360 606166 005300 ogc RB ps TESTED 
O 1361 606160 001375 BME is 
1362 606162 680004 013443 rr : 
1363 606166 604767 178362 JSR PC, , INPUT sGET USER tupur 
@ 1364 006172 612708 001264 MOV oIneur,Re 
1365 006176 1223718 660101 Cups @°As (RO) pAN °A® SPECIFIES ALL 
1366 006202 081013 BE 38 pORIVES TO BE TESTED 
& 1367 606204 110667 1972714 MOVs SP, PRGFLG s8ET FLAG 70 IND ALL DRIVES 
1368 ©06210 612701 001154 NOV CORVTBL, Ri sMARK ALL DRIVES TO BE TESTED 
1369 006214 612700 600004 Mov 04,R0 pA "ol? ZNDICATES THAT A ORIVE 
@ 1378 0606220 612723 177777 268 MoV O°1,(RI)© 938 TO BE TESTED 
1371 006224 605300 ogc RO 
1372 0606226 001374 SKE 28 
e $444 606230 000417 Be CHKDRV GO CHECK DRIVE AVAILABILITY 
13 
1375 GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
& 1376 006232 122718 ee0015 363 cups eCR, (RO) 
1377 006236 001414 ry 2°) CHKORYV 
1378 006240 121027 6060054 Cups (RO), 0%, pCHECK If econua⸗e 
@ 1379 006244 601001 BNE 44 
13800 006246 105720 78TD (RO)¢ STEP PTR PAST COMMA’ 
1381 606238 112001 463 MOVe CRODO ORI 
@ 1302 006252 642701 177770 arc 0177770,R1 
1383 @06256 112761 177777 6011586 MOVE @°4 -ORVTBL(RI) 
1304 006264 900240 NOP 
2 see 006266 000761 BR 28 : 
i 
1307 pASCERTAIN THAT DRIVES (THO2°S) SPECIFIED ARE AVAILABLE 
S 13868 006276 sesese CHKDRVs CLR Re pA @/e1 INDICATES THAT THE 
1309 906272 105768 001154 16s raro ORVTBLCRO) sORIVE I8 WOT/IS TO BE TESTED 
1390 006276 801005 BNE rT] 
oS 1391 606300 605200 268 INC Ra 
1392 0896302 122780 eeeeie Cups 00,,R0 
1393 006306 001371 BNE ig 
& 1394 006318 0600421 BR rT) 
1395 006312 110037 901004 368 nove RO, CODRVNUM 
1396 006316 604737 005116 JSR PC, @OORVAVA pCHECK IF AVAILABLE 
@ 1397 906322 102366 svc 28 9°V* BIT SET INDICATES NOT AVAIL 
1396 006324 6090004 613762 TYPE,E NORV 
1399 ©06330 116037 001132 014014 MOVB DIGTAB(RO),@0£, NAVA SET ORIVE « IN MESSAGE 
@ 1400 006336 900004 014014 TYPE, E, WAVA 
1401 ©06342 110637 001123 MOve 6P, OOERFLG SET “ERROR’ FLAG 
1402 006346 195060 001154 CLARO ORVTBL( RO) pMARK ORIVE UNAVAILABLE 
e 1403 006352 900752 BP 20 zenten NEXT DRIVE 
1404 0606354 105737 061123 46% TSsTB OcERFLG 960 GET SLAVES If WO ERROR 
1405 806360 001403 Bro SLAVES 
6 1406 906362 105737 001124 T8T8 OOPRGFLG pASK USER TO RETYPE DRIVES IF 
see? 006366 001664 BEO DRIVES p°ALL® NOT SPECIFIED Es 
@ 1409 pROUTINE TO GET SLAVES (TU16°S) USER DESIRES TO TEST 
LAVES! CLOS  eeee 






DETUDeC THO2 DRIVE FUNCTION TIMER MACY11 27(¢732) i18cHARe76 13106 PAGE 34 SEQ 6089 
DETUDC P11 PROGRAM INITIALIZATION 
1411 806374 612701 061164 mov OSLVTBL, Ri MARK ALL SLAVES (64,) AS NOT 
1412 006408 012700 00040 MOV 032,,R0 70 BE TESTED,A @ INDICATES THAT 
1413 696404 096021 16s CLR (Ride pA DRIVE’S SLAVE 18 WOT TO BE 
1414 0806406 605300 DEC Re 9 TESTED 
1415 606416 601375 BNE is 
1416 006412 6003000 CUR Re gRO @ DRIVE 9 FOR SLAVES 
1417 006414 612701 601164 MOV OSLVTBL, Ri pRs POINTS ORIVE’S SLAVE 
1416 006428 108760 001154 283 TsT8 ORVTBL( RO) sZF ORIVE 36 TO BE TESTED 
1419 006424 6081007 BNE 4& 960 TO 46 OTHERWISE 
1428 006426 662701 6800010 36s ADD o6,,Ri pSTEp SLAVE PTR TO NEXT DRIVES 
1421 606432 6052008 Inc Re pSLAVES ANDO INCREMENT DRIVE © 
1422 006434 122706 6000160 CuPB 66,,RO sCHECK ALL ORIVES 
1423 006440 601367 BNE a8 pAND WHEN ALL DRIVES CHECKED 
ee 006442 800454 BR CHKSLV GO CHECK SLAVE AVAILABILITY 
142 
1426 0606444 105737 001124 455 7870 OOPRGTLG BRANCH IF USER SELECTED ALL 
1427 906450 601020 BNE $e sORIVES 
1428 606452 110067 172326 hOvVB RO, ORVNUN sGET DRIVE 6 
1429 006456 116037 001132 013524 MOVE OIGTAB( RO), 001 ORV PREPARE USER ACTION MESSAGE 
1430 006464 690004 0613505 TYPE, 1, 8LV8 
1431 0606470 0804767 175000 JER pC, , INPUT GET USER INPUT 
1432 006474 612703 601264 MoV OINBUF, RI p8ET PTR To USER INPUT 
1433 966800 122718 000101 CMpB @°A, (RO) BRANCH IF USER DOES NOT WANT 
1434 006504 091615 BNE 78 p°ALL® SLAVES 
1435 606806 110637 001124 MOVB SP, COPRGFLG 9SET °ALL® INOICATOR 
1436 006512 612701 001164 56s MoV OSL VTBL, Ri MARK ALL SLAVES FOR ALL 
1437 906516 612786 600040 MOV 032,.R0 sORIVES AS TO BE TESTED 
1438 0606522 612721 1777977 rT) MOV O-1,(RI)DO 
1439 0606526 905300 DEC ne 
1448 006530 601374 ONE 6a 
1441 0606532 105737 061124 1870 OCPRGFLG BRANCH IF ALL WAS SELECTED 
— 006536 601016 BNE CHKSLV 
144 
1444 906548 122713 9090015 768 CPB oCRr,(R3) sGET USER SELECTED SLAVES FOR 
1445 606544 601730 BEG 38 pORIVE 
1446 606546 121327 980054 Cups CR3),0°%, pSTEP PTR PAST °COMMA’ 
1447 606552 0801961 BNE oe 
14468 906554 105723 TSsTB CR3)¢ 
1449 606556 112304 66s nove CRIDOoRE pAND MARK SELECED SLAVE 
1458 906560 042704 177778 Bic 0177770,R4 948 TO BE TESTED 
1451 006564 660104 ADD Ri, RE 
1452 006566 112714 177777 MOVB —V 
1453 606372 600762 BR 76 
1454 
1455 pASCERTAIN THAT SLAVES (TU16°S) SELECTED ARE AVASLASLE 
1456 006574 608000 CHKSLV! CLR we RO WILL CONTAIN THE DRIVE @ 
1457 006876 605001 CuR Ri pAnO Ri THE SLAVE ¢@ 
1458 006600 612702 061164 MoV OSLVTBL,R2 ST PTR TO SLAVE TABLE 
1459 006604 105760 001154 ies 70780 DRVTBL( RO) sBRANCH IF ORIVE SELECTED 
1468 606618 601007 BNE aa 96 AVAILABLE FOR TEST 
1461 0606612 605200 268 tne RO pINCRENENT ORIVE © 
1462 006614 062702 6000160 400 06,,R2 pSTEP SLAVE PTR TO WEXT DRIVES 
1463 806620 022708 0090010 CMP 0 ,,R® pSLAVES, SRANCH TO ig IF NOT ALL 6 
1464 006624 001367 BONE is pORIVES CHECKED OTHERWISE EXIT 5 
1465 606626 000434 Or 78 
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1467 
$468 
1469 
14768 
1471 
41472 
1473 
1474 


006630 
©6632 
006634 
696636 
696648 
006642 
OGb646 
O86688 


66632 
606656 
06662 
006666 
0066708 
006676 
006704 
006710 
006714 
806716 


C86728 
006724 
006726 
006732 
006734 


006742 
886746 
006752 
686768 


006764 
006770 


PROGRAM INITIALIZATION 


001616 
012737 


109037 
108037 
012737 
108037 


113700 
113761 


000010 


801004 
001005 
005144 


001132 
001132 
013776 
001123 


001004 
001005 


814004 
014014 


680004 
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CLR Ri s88T SLAVE © © 
T8TS) «= (RB) PORANCH SF ORIVE’S SLAVE 18 SEL© 
BWE “6 sECTED FOR TEST 
ruc Bi SINCRENENT SLAVE © 
INC aã p8T&P PTR TO WEXT SLAVE 
Cup 00,oR1 160 70 46 37 ALL SLAVES not 
eRe aa sCHECKED 
em PY) sOTHERWIGE GO TO 26 ABOVE 
MOVB = RB, OODRVEUN sPASS DRIVE & SLAVE 0 
MOVE «=«_- RL, OOSLVNUN 
JBR PC, COSLVAVA pAND CHECK IF AVAILABLE 
eve a6 9°V? BIT SET ON RETURN IND] 
MOVB DIGTAB(RO),00£,DRV sICATES ERROR, PREPARE ERAOR 
MOVS DIGTABCR1),00£, NAVA )MESSAGE 
TYPE, £NSLY 
MOVE © SP, OUERFLG s8ET ERROR INDICATOR 
CLRB = (R2) sCLEAR SLAVE TABLE ENTRY 
BR 46 sCET WEXT SLAVE 
TST.) vootarue pORANCH 3F HO ERROR 
BEO 8 
TSTB) «= -_- @OPRGFLG sORANCH IF NOT °ALL® 
BEG SLAVES pASK USER TO RETYPE SLAVES 
MoV OERRTRP, OOERRVEC 

sSCAN DIVE AND SLAVE TABLE FOR ORIVE/SLAVE COMBINATION TO EST 
CLRB = OOD ARVN pSET ORIVE AND SLAVE 6 © 
CLRB = s« OO SLVWUN 
MOV OSLVTSL, OOSLVPTR sSET PTR TO SLAVE TABLE 
CLRB) = @OUNTFND ICLEAR “UNIT FOUND? IND, 
MOVB SeDRVNUN,RO sGET ORIVE @ 
MOVB COSLYNUM, RI pAND SLAVE 6 





. 
2 
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DETUDC ,Pii PROGRAM INITIALIZATION 
9 1301 006774 613702 601006 MoV OOSLVPTR, RI sGET SLAVE PTR 
1802 907000 108766 0611684 TT 7870 ORVTBL( Re) pORANCH IF ORZVE AVAIL TO TEST 
1503 6607004 001011 BRE 34 
g 1804 607006 060500: CLR Ri sCUEAR SLAVE ¢@ 
1506 607010 662782 608010 ADD 06,-R2 pAND STEP PTR TO HEXT ORIVE*S 
1806 0607014 6052 268 rac pSLAVES AnD ise tan DRIVE @ 
O 18507 06607016 822700 9666010 Cup 08, ,Rr® pEXIf TEst IF ALL DAIVES 
1506 6607022 001366 ONE 1k CHECKED OTHERWISE — 
one 007024 000137 012732 JuP OCEND 1OCAn FOR BEXE °UNIT 
e 1511 6607636 109712 368 1870 (R2) pORANCH IF SLAVE On DRIVE 38 
1512 807032 6061007 BNE 48 AVAILABLE THERWISE STEP 
fe 1513 607034 6052062 Ine Ra gPTR TO EXT SLAVE 
1514 607036 605201 Inc Ri STECREMENT SLAVE 6 
1515 07048 122761 600010 CMPB 08, oR pUNTIL ALL SLAVES CHECKED 
e 1516 0076044 0601371 ONE it pWHEN ALL SLAVES CHECKED 
1817 607046 605061 CLR Ri pSET SLAVE © 6 
ote 607088 600761 BR a6 AND CONTINUE SCAN 
183 
e 1520 907052 110637 601125 468 nove SP, CoUNTFND pImDICATE THAT A °UNTT® Is FOUND 
1821 887056 110037 0801004 MOV RO, CODRVNUN SET DRIVE 3 
9 
& 
g 
3 
2 
oO 
° 
Go 
9 
@ 
& 
I5 





1822 
1523 
1524 
1525 
1826 
1827 
1528 
1529 
1530 
1933 
1532 
1533 
1534 
1535 
1536 
1537 
1536 
1539 
1540 
1841 
1842 
1543 
1544 
1545 
1546 
1547 
1546 
1549 
1588 
1581 
1582 
1553 
1584 
1555 
1556 
1557 
1588 
1589 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
15686 
1569 
1570 


007062 
607066 


007072 
007076 
007100 


007106 
607112 
007116 
007122 
007126 
007132 
007134 
007140 
007142 
007146 


007150 
007184 
067160 
007164 
007170 
007174 
067176 
607202 
067204 
007210 


007210 
007216 
007222 
067230 
007236 
007244 
007252 
007284 
007262 
007266 
607272 
007276 
007304 
007306 
007312 
007314 
607320 
007324 
007330 
007332 


DETUDeC THO2 ORIVE FUNCTION TIMER 


PROGRAM INITIALIZATION 


110137 
610237 


105737 
601044 
112767 


105037 
600064 
004767 
012703 
122733 
001406 
122713 
001354 
411337 
699420 


108037 


111337 


652737 
60004 
116037 
116137 
412737 
632765 
001403 
112737 
600004 
604767 
000004 
012737 
610800 
062700 
010501 
062701 
012763 
105737 
001462 
000137 


001124 
013564 
174382 
001264 
000060 


600061 
001124 


001127 
013625 
4174310 
801264 
00006e 


000061 
001127 


060100 
014344 
001132 
001132 
000071 
010000 


000067 
014487 
176302 
014560 
007336 


000006 
000012 
004444 
001124 


012764 


172022 


177860 
014524 
014636 
014541 
080026 


014841 


WACYI1 276732) 


788 
TYPHORs 


1GeMARC76 138606 PAGE 37 SEQ 9062 
MOVB Ri, COSLVNUN sSET BLAVE 6 
MoV R2, COSLVPTR pSAVE SLAVE PTR 
TSsTB OCASFLG 
BNEk 78 
MOV 01,A8FLG 
CURB OOPRGFLG sCLEAR PROGRAM ImOICATOR 
TYPE, 2, SKEW pASK USER If HE WANTS TO RUN SKEW TESTS 
JSR PC, INPUT sGET USER INPUT 
MoV ornBUr,RS 9GET REPLY 
—* aac pORANCH IF °HO*® (8) 
CMPS 0°4,e(R3) sCHECK IF °¥ES* (1) 
BNE $6 sNEITHER 6O ASK AGAIN 
MOVE (R3),OGPRGFLG  38ET INDICATOR 
BR 78 
CURB OONREFLG sCLEAR WRE INDICATOR 
TYPE,I NRE pASK USER IF ORIVE “NRE ONLY 
JSR PC, INPUT #GET USER INPUT 
MOV OINOUF,R3 sGET REPLY 
CMPB @°O,(R3) pBRANCH IF °HO*? (8) 
B£Q 78 
Cups 0°ieCR3) pCHECK IF °¥ES* (1) 
BNE 68 sAGK AGAIN If NEITHER 
MOVB (R3),CONREFLG  36ET INDICATOR 
BI6 6100,0eTKS 9SET KEYBOARD JE BIT 
TYPE,L, HORI 
MOVB DIGTAB(RO),00L ORV p8ET DRIVE @ 
MOoyB DIGTAB(R1), CeL,SLV gAND SLAVE @ 
nove 0°9,@0L,CHAN sGET SLAVES CHANNEL TYPE 
Bit oCH7 ,DT(RS) 
BEO is 
MOVB 0°7,00L,CHAN 9SET 7 CHANNEL 
TYPE,L, HOR? 
JER PC, SNPT 360 PRINT SERIAL NUMBER 
TYPE,L,HOR} 
MOV We a ate 98ET “SCOPE ADDRESS FOR FIRST TEST 
MoV RS,R 
Add oFc,RO pRO CONTAINS ADORESS OF FC REG 
MOV RS,Ri 
ADO @DS,Ri oR3 CONTAINS ADORESS OF DS REG 
MOV OTIMER, RI 98ET JUMP ADDRESS TO TIMER 
7870 OeoPRGFLG pBRANCH IF NOT SKEW TESTS 
BE 787001 
— — OOSKEWNTST 

J5 





DETUDeC TMO2 ORIVE FUNCTION TIMER 


DETUDC ,Pii 


1871 
1$72 
1573 
1874 
1878 
1576 
1877 
1576 
1579 
1580 
1563 
1562 
1583 
ised 
ises 
15086 
1367 
1506 
1569 
1596 
1591 
1592 
1593 
1394 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
16@3 
1694 
1605 
1606 
1607 
1608 
1609 
1616 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1628 
1621 
1622 
1623 
1624 
1625 
1626 


007336 
007344 
007350 
007354 
007356 
007362 
007366 


067370 
007374 
007376 


007402 
007406 
007410 
007414 
007416 
007420 


0607422 
007436 
007434 
007440 
O07444 


007446 
007452 
007484 


067460 
007464 
067466 
007472 


007474 
007476 


9073500 
007506 
007512 


007514 
607516 
607520 


a 


START OF TESTS 


112737 
012762 
004767 
1024206 
004767 
004767 
005215 


005765 
100682 
000163 


064767 
102403 
004767 
000401 
104400 
104000 


112737 
004767 
612702 
604767 
605215 


005765 
190002 
000163 


004767 
102403 
604767 
600401 


104400 
194000 


112737 
004767 
605215 


605710 
001404 
632711 


000001 
007370 
178762 
176036 
174766 
000032 
0044446 
175624 


175066 


060002 
175764 
007446 
1747108 
000032 
004444 
178546 


175010 


000003 
175706 


040600 


MACY31 27(732) {0eMAR©76 13306 PAGE 30 SEQ 6963 


eSBTTL START OF TESTS 
sTEST 001 © WRITE FROM BOT 
THIS TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 
pMOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
sFROM DEAD STOP BEFORE STARTING TO TRANSFER DATA, 


sTHIS TEST MEASURES TINE FROM °GO°s TO °ACCL’s®, 
787001⸗ any @1,0eTSTHUN p68T TEST 6 


016,R2 gSET RETURN PC FROM TINEA 
JaR PCo REWIND PREWIND SLAVE 
BvS 996 pORANCH IF ERROR OW REWIND 
JSR PC WRITE 940 SETUP WRITE COMMAND 
JSR PC, TIMON sTURN TINER OW 
INC (Rs) s8ET °GO? BIT 
16s 787 TCCRS) BRANCH WHEN °ACCL°ag 


BPL a6 
JUMP TIMER(R3) 960 TO TIMER & RETURN VIA R2 


283 JSR pC, WAITROY WAIT FOR COMMAND TO FIniIsH 
BVS 998 pBRANCH IF ERROR 
JSR eC, TIMOK 960 CHECK TIME 
BR 1608 

9968 HLT 


sTEST 002 © WRITE START 
STHIG TET MEASURES TINE FROM °GO°s’ TO “ACCL°s® 


T8T092: MOVE 62, 0e TSTHUM sSET TEST 6 2 
JER PC, WRITE pINZTIATE WAITE COMMAND 
MOV 018,R2 9SET RETURN PC PRON TIMER 
JER PC, TIMON 
INC (RS) sSET °GO* BIT 
188 rst TCCRS) pBRANCH WHEN *°ACCL* eg 
BPL 2 
JMP TIMERCRS) 960 TO TIMER & RETURN VIA R2 
283 JSR PC, WAITROY sWAIT FOR READY 
Bvs 998 sBRANCH IF ERROR 
JSR PC, TIMOK 1GO CHECK TINE RECORDED 
BR 1008 pEXIT VIA SCOPE 
998: = HLT PREPORT ERROR 
1008:  sCOPE 


sTEST 0032 WRITE SHUTDOWN 
STHIG TEST MEASURES TINE FROM °FC REG*s® TO °SuDN’si, 


TSTOO3s MOVB ¢3,0eTSTNUM sSET TESTe3 
JSR PC, WRITE INITIATE WRITE COMMAND 
tc (RS) sSET °GO* BIT 
16s 187 (Re) pBRANCH WHEN WRITING FINISHED KS 
BEO 28 
817 æXoXeIb᷑ꝰ sMONTTOR ERROR BIT 





s 


O 
e DETUD@C ⁊uoꝛ ORIVE FUNCTION TIMER MACYS1 27(732) {8eNAR©76 13:06 PAGE 39 SEO 9066 
DETUDC vii START OF TESTS ; 
Ps 1637 007826 000772 aR 18 
1629 907830 263 
o 1630 #07830 004767 174620 JSR PC, TINON pTURS TIMER ON 
1631 007534 010782 MoV PC, R2 sYOAD RETUR® PC FROM TINER 
1632 007936 632711 eeee2e 368 eit esDWN, (RS) pORANCH WHEN OS <eDUND SETS 
@ 1633 007842 061002 BNE éa 
1634 007544 000163 004444 TT) TINERCRS) 960 TO TIMER & RETURN VIA RZ 
i 
2) 1636 @675S0 004767 175456 483 JaR pC WATERY pWAZ? POR READY 
1637 907884 102403 BVS 
1638 607856 604767 174728 JSR —8 1600 CHECK TINE RECORDED 
a 1639 007562 0090401 BR 
1640 007864 104400 9908 3=s HLT pREPORT ERROR 
1641 807866 1046000 1008:  scoPE 
8 1642 
1643 pTEST 004 © WRITE SETTLEDOWN 
1644 STHIS TEST MEASURES TINE FROM *OWDN%G1 TO "SHON eS, 
0 1648 607570 112737 se0ees 001122 TeT0084) HOVD 04, 00TSTNUN 
1646 067876 694767 175616 JaR PC, WRITE 
1647 007602 005215 ine CRS) p8ET °GO* BIT 
ad 1649 907604 905710 168 rer cre) pORANCH WHEA WRITING FINISHED 
1650 097606 901404 BEQ 28 
a 1681 667610 0632711 e4esee tt} @ERR, (RI) PCHECK ERROR BIT 
1652 007614 601626 BNE 998 
HH 907616 000772 BR 18 
bad 1685 907620 032711 909020 261 BIT oaduun, (Ri) pWAIT FOR ASSERTION OF °sDWH° 
1656 097624 601004 BME 38 
@ 1687 607626 032711 e4secee ert SERA, (RI) sMONZTOR ERROR BIT 
1688 687632 601617 BNE 998 
1669 007634 800771 BR 28 
Q 1660 
1664 007636 368 
1662 @07636 004767 174512 JSR PC, TIMON pTURN TIMER OW 
@ 1663 907642 0610762 MOV PC, R2 p8ET RETURN PC FROM TINER 
1664 087644 0327113 esee20 Bit esDWN, (RI) SBRANCH WHEN SWON CLEARS 
1668 807680 601402 BE 58 
Ps 1666 007682 800163 004444 JMP TINERCRS) 960 TO TIMER & RETURN VIA R2 
i 
1668 007656 694767 175350 Se: JR pC. WAITROY pWAZT FOR READY 
@ 1669 097662 1092403 BvS 
1678 007664 684767 174612 JSR Pe, TIWOK 
1671 007670 990403 BR 1690 
O 1672 
1673 @07672 1046400 998: = HLT 
1674 907674 194000 1008s scope 
9 1678 
1676 sTEST 805 © READ FROM BOT 
1677 sTHIG TEST MEASURES TINE FROM °GO*%s1 TO *ACCL°s®, 
0 1670 @07676 112737 @90008 001122 TST00S; HOVE 05,00TSTNUN pSET TEST 0S 
004767 179426 JOR PC, ,REWIND pREWIND gLAVE 
102422 avs . al sBRANCH IF ERROR OW REWIND L5 
oO 604767 JER ° 





° +H —————— — 


— 


DETUD9°C THS2 ORIVE FUNCTION TIMER 
DETUDC , Pil 


1683 
1684 
16085 
1686 
1607 
1668 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 





010120 


—_— 


007722 
007726 


007730 
007734 
067736 


007742 
007746 
007750 
607784 


007786 
007760 


007762 
607778 
007774 
007776 
610002 
019006 
610012 


010014 
010020 
610022 


010042 
810044 


810070 


810074 


010076 
010162 
810164 


010106 
016166 
010112 
610114 


START OF TESTS 


004767 174426 
008215 


0038765 
1000062 
006163 


004767 
102463 
004767 
006401 


000032 
004444 
175264 
174826 


112737 
004767 
102422 
004767 
012762 
004767 
005215 


0038765 
100062 
600163 


004767 
102403 
004767 
60840} 


1044608 
104000 


606006 
175536 


175434 
010014 
174342 


176 2060 
174442 


112737 
004767 
102430 
004767 
005215 


022710 
001404 
632713 
001017 
600771 


000007 
175432 


175380 


000400 
640000 


174242 


004444 


001122 





MACYI1 27(732) S0eNARC76 13:06 PAGE 48 SEO 0068 
JER PC, TINON )TURN TIMER OW 
INC (RS) 1GET °GO? BIf 
TT) rat rccRs) pDRANCH WHEN °ACCL® RESETS ; 
p 
JMp TINER(RS) 1G0 70 TIMER & RETURN VIA aa 
26s Jar PC, WAITROY pWAZT FOR READY 
avs 978 SBRANCH IF ERROR 
JOR PC, TINOK SCHECK RECORDED TINE 
BR 1008 
990: ALT 
1006: SCOPE 
}TEST 006 © READ START 
pTHIS TEST MEASURES TINE FROM °GO*%s, TO *ACCL*°s@ 
7570061 HOVE 06, CO TSTNUN s8ET TEST 06 
Jar PC, WRT, BK pWRITE A RECORD & BACK Space 
BvS 996 
JR PC, READ 
MOV 916,R2 }SET RETURN PC FROM TINER 
JSR PC, TIMON ;TURN TIMER OW 
INC (RS) 18ET °GO* BIT 
188 ts? TC(RS) pORANCH WHEN °ACCL® RESETS 
BPL 28 
JM TINERCR3) 160 70 TIMER & RETURN VIA R2 
281 Jen PC, WAITRDY 
Bvs 994 
JER PC, TINOK 
Be 1008 
9968 HLT 
1008s SCOPE 
}TEST 007 © READ SHUTDOWN 
THIS TEST MEASURES TINE FROM °FC REG°SFRANE COUNT TO °gwDNee1, 
187007) MOVE 67, 09 TSTNUN )8ET TEST 07 
JSR PC, WRT, BK pWRITE A RECORD & BACK SPACE 
BvS 998 pORANCH ZF CAROR 
JSR PC, READ 
INC (RS) )8ET °GO* BIT 
tee cup OoPRNCHT, (RO) ;WAIT FOR FRAME COUNT 70 
Bra 28 pe @ OF FRAMES WRITTEN 
BIT sERR, (RA) sMONZTOR ERROR BIT 
BNE 998 
BR is 
ass 
JER PC, TINON sTURN TIMER ON 
MOV PC, R2 )SET RETURN PC FROM TIMER ms 
art esDwN, (RA) SORANCH WHEN SOWN SETS 








DZTUDeC TMO2 ORIVE FUNCTION TIMER 


OZTUDC Pil 


1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
17508 
1754 
1782 
1753 
i754 
1755 
1756 
1787 
1788 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1761 
1762 
1783 
1764 
1785 
1786 
1787 
1766 
1789 
1798 
1791 
1792 
1793 
1794 





010122 


010126 
010132 
010134 
010140 


610142 
010144 


610146 
010154 
016160 
Sisi6s 
810166 
010172 


010174 
610176 
810200 
010204 
010206 


610210 
010214 
010216 
610222 
010224 


010226 
010226 
010232 
010240 
010242 


810246 
010252 
010254 
010260 


810262 
010264 


010266 
010274 
010300 
010304 
016306 
010312 
010314 
010326 


START OF TESTS 


804767 
102403 
004767 
000401 


104400 
164000 


112737 
012702 
004767 
833436 
004767 
005215 


108711 
100404 
032711 
001026 
800772 


032711 
801004 
032711 
001017 
000771 


004767 
632765 
001402 
090163 


604767 
102403 
004767 
000401 


104400 
1804000 


412737 





004444 
175100 
174342 


000010 
016232 
175326 


175244 


000020 
040000 


174122 
000020 


004444 
174760 
174222 


000011 
016332 
175114 
174720 


174420 





MACY11 27(732) 18°MAR©76 13106 PAGE 43 SEQ 0066 
JMP TIMER(R3) 1G0 TO TIMER & RETURN VIA R2 
388 JSR PC, WAITROY 
BVS 998 
JSR PC, TIMOK 
BR 1008 
998: HLT }REPORT ERROR 
1008:  sCOPE 
}TEST 018 © READ SETTLEDOWN 
}THIS TEST MEASURES TIME FROM °SWON’®) TO *SWON’s®, 
901122 TST0101 MOVE  10,0eTSTNUM 1SET TEST 810 
MOV 848)R2 }SET RETURN PC FROM TIMER 
JSR PC, WRT, BK }WRITE A RECORD & BACK SPACE 
ays $93 
JSR PC, READ 
INC (RS) }8ET °GO* BIT 
18s TSTB (RA) sWAIT FOR READY 
BMI 28 SBRANCH WHEN SET 
BIT sERR,(R1) ICHECK ERROR BIT 
BNE 996 
BR 18 
26% BIT eSDWN, (RI) ;WAIT FOR ASSERTION OF *sDWNe 
BNE 38 
BIT sERR, (R1) sMONITOR ERROR BIT 
BNE 996 
BR 28 
388 
JSR PC, TIMON ;TURN TIMER ON 
900012 46% BIT #SDWN,DSCRS) }WAIT FOR NEGATION OF SDWN 
BEO 58 
UMP TIMER(R3) 1GO TO TIMER & RETURN VIA R2 
S83 JSR PC, WAITROY 
Bvs 998 
JSR PC, TIMOK 
BR 1008 
9988 HLT 
1008: SCOPE 
}TEST @11°READ REVERSE START 
1THIS TEST MEASURES TIME FROM °GO°s1 TO *ACCL°s®, 
001122 TSTOi1s MOVB ¢11,0eTSTNUM 
MoV 618,R2 }SET RETURN PC FROM TIMER 
JSR PC, WRITE SWRITE A RECORD 
INC (RS) }SET °GO* BIT 
JSR PC, WAITROY 
Bvs 998 Ao 
JSR PC, DELAY sWAIT FOR TAPE NOTION TO STOP 


















DETUD@C THO2 DRIVE FUNCTION TIMER MACY11 27€732) i8eMAR©76 13306 PAGE 42 SEQ 0067 
DZTUDC Pil START OF TESTS 
1795S 010324 004767 174024 JSR PC, TIMON STURN TIMER ON 
1796 610330 685215 INC (RS) s8ET °GO* BIT 
1797 
1798 610332 06808765 000032 163 T8T TC(RS) pORANCH WHEN °ACCL® @ @ 
1799 010336 180002 BPL 26 
coos. 010340 600163 004444 JMpP TIMERC(R3) 960 TO TIMER & RETURN VIA K2 
1802 0160344 6604767 174662 283 JSR PC, WAITRDY 
1603 616350 1024063 BVS 998 sO8RANCH IF ERROR 
1804 810352 604767 174124 JSR PC, TIMOK 
— 018386 800401 BR 1006 
186 
1807 6180360 104460 9988 NLT 
ane 010362 164000 100658 SCOPE 
1860 
16186 sTEST O12°READ REVERSE SHUTDOWN 
1611 sTHIS TEST MEASURES TIME FROM °FC REG* © FRAME COUNT TO *SDWUN°S1, 
1612 0610364 112737 000012 001122 TST012: MOVB 012, 0¢0TSTNUM 
1613 010372 612782 010442 MOV 036,R2 sSET RETURN PC FROM TIMER 
1014 610376 004767 175016 JSR PC, WRITE pWRITE A RECORD 
1615 018402 605215 rnc CRS) s8ET °GO* BIT 
1816 610404 604767 174622 JSR PC, WAITRDOY 
1617 0610410 102427 BVS $99 
1818 010412 0604767 175036 J&R PC, REVRD 
oth 810416 0605215 Inc (RS) s8ET °GO* BIT 
1629 
1821 610420 622718 600400 163 CMP OoFRMCNT, (RO) pBRANCH WHEN FRAME COUNT 
1622 610424 601404 BEQ 28 98 © OF RECORD WRITTEN 
1823 010426 0632711 640000 BIT eERR, (Ri) sMONITOR ERROR BIT IN °DS* REG 
1824 616432 601016 BNE 996 
1625 0610434 600771 BR 18 
1626 
1827 010436 263 
1828 010436 004767 173712 JSR PC, TIMON sTURN TIMER ON 
1829 010442 632711 600020 383 BIT @SDWN, (RY) pBRANCH WHEN SOWN SETS 
1830 0616446 601062 BNE 4g 
1631 610450 0600163 004444 JMP TIMER(R3) 160 TO TIMER & RETURN VIA R2 
18632 
1633 0160454 0604767 174852 46% JSR pC, WAITRDY pWAIT For READY 
1834 0610460 102403 8V8 996 
1835 0160462 004767 174014 JSR PC, TIMOK 
— 010466 600461 BR 1608 
i 
1638 010470 104400 9968 HLT 
eed 010472 194000 100838 SCOPE 
1640 
1641 pTEST OL 3°READ REVERSE SETTLEDOWN 
1942 sTHIS TEST MEASURES TIME FROM *SDWN*si TO *SDWN's®, 
1643 610474 112737 900013 601122 TsT®133 MOVB 613, 0eTSTNUM 
1844 610502 612762 010566 MOV 0486,R2 pSET RETURN PC FROM TIMER 
1845 010906 604767 174786 J6R PC, WRITE sWRITE A RECORD 
1646 010512 605215 Inc (RS) s8ET °GO* BIT 
1647 610514 0604767 174512 JSR pC, WAITRDY 
1848 610820 102435 BVS 998 Bo 
1849 010822 604767 174726 JSR PC, REVRD 








DOZTUD9C 7u02 DRIVE FUNCTION TIMER 


1881 
1682 
1083 
1694 
1665 
1656 
1687 
1688 
1689 
1866 
1061 
18662 
1063 
1864 
1668 
1866 
1067 
1668 
1869 
1070 
1673 
1872 
18673 
1674 
1675 
1876 
18677 
1878 
18679 
1060 
1001 
1002 
18663 
1604 
1665 
1606 
1867 
1886 
1869 
16908 
1891 
1892 
18693 
1694 
1695 
1896 
1697 
1090 
1899 
1906 
1901 
1902 
1963 
1904 
1908 
1906 


616530 
010832 
010534 
810846 
610842 


010844 
0103550 
010552 
010586 
016860 


010562 
010562 
010866 
610872 
610874 


0166008 
010604 
010606 
010612 


010614 
010616 


010620 
016620 
010624 
010626 
010630 
010632 
010634 


610634 
610642 
010646 
010652 
610654 
010660 


610662 
010666 
010672 


010674 
610700 
8107062 


010706 
010712 
6107 








START OF TESTS 


108711 


632711 
861604 
632711 
001016 
000771 


604767 
032711 
001402 
000163 


664767 
162463 
004767 
800461 


604767 
102461 
102002 
1046480 
600772 


112737 
612702 
604767 
005215 
004767 
102420 


604767 
004767 
005215 


605765 
100002 
600163 


004767 
102403 
Ld 


040060 


000020 
040000 


173866 
000020 


884464 
174426 
1736708 


1748132 


000014 
010674 
174546 
174352 
174566 
173462 
000032 
004444 
174320 
73562 







MACY11 27¢732) 


9968 
10083 


TSsTB 
BMI 
BIT 
BNE 
BR 


BIT 
BNE 
BIT 
BNE 
BR 


JSR 
BIT 
BEQ 
JMP 


JBR 
BvS 
JSR 
BR 


HLT 
SCOPE 


DRIVE 


1GeMAR@76 13306 PAGE 43 


(Ri) 

ae 

@ERR, (Ri) 
996 

is 

@SDWN, (RI) 
38 

@ERR, (Ri) 


PC, TIMON 
oSDWN, (Ri) 
58 
TIMER(R3) 
a 


PC, ,REWIND 
998 
1666 


sBRANCH WHEN 
pREADY SETS 


sTURN TIMER OW 
pBRANCH WHEN SWON cs 6 


G0 TO TIMER & RETURN VIA R2 
pWAIT FOR READY 


pREWIND SLAVE 
sORANCH IF ERROR ON REWIND 


STEST O14eTURN AROUND DELAY (FORWARD@REVERSE) 
pTHIS TEST MEASURES TIME FROM °Ge’ei (READ REVERSE) TO °ACCL°s@ 


1870141 






novo 
Mov 





014, 00TSTNUM 


@28,R2 

PC, WRITE 
(RS) 

PC, WAITRDY 
996 


PC, REVRD 
PC, TIMON 
(RS) 
TCCRS) 

36 
TIMERC(R3) 


sSET RETURN PC FROM TIMER 
pWRITE A RECORD 
pSET °GO* BIT 


pREAD THE RECORD (REVERSE) 
STURN TIMER OW 

SET °GC* BIT 

pWAIT FOR °ACCL® @ @ 

160 TO TIMER & RETURN VIA R2 


Co 


0.23 —— —— —— — — — 


DETUDeC TMO2 ORIVE FUNCTION TIMER 


DETUDC Pil 


1907 
1908 
1909 
1918 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1948 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
19508 
1951 
1982 
1983 
1984 
1955 
1956 
1987 
1958 
1989 
1960 
1961 
1962 


610720 


016722 
610724 


010726 
610734 
010740 
010744 
010746 
010752 
010754 
010760 


016762 
010766 


0107708 
010774 
011000 


011014 
611020 
011022 
011626 


011034 
011042 
011046 
011052 
011054 
011060 
011062 
011066 
011072 
611076 


811100 
011102 
011104 


011110 
O11114 
011116 
011122 


START OF TESTS 


000401 


104400 
164000 


112737 
612702 
064767 
005215 
004767 
102426 
004767 
00$215 


004767 
102420 


604767 
604767 
005215 


005765 
1800662 
000163 


604767 
102463 
004767 
000401 


112737 
012702 
004767 
695215 
604767 
102421 
004767 
604767 
604767 
005215 


0035718 
001002 
000163 


004767 
10240) 
004767 
888481 


000015 
011062 
174454 
174260 


174474 


174244 


174442 
173354 
000032 
8044464 
174212 
173484 


000016 
011100 
174346 
174182 
173682 


174362 
173256 


004444 
174116 
173360 


001122 


MACY31 27¢732) 


BR 
996s HUT 
1908s  sCcOPE 


18 MAR-76 


13806 PAGE 44 


pTEST CiSe TURN AROUND DELAY (REVERSEoFORWARD) 
pTHIQ TEST MEASURES TIME FROM °GO°st (READ) 70 °ACCL°oO, 


TST015— MOVE 


MOV 


18s JSR 


283 T8Tt 


368 JSR 


pTEST O160GAP SIZE (STOP HALF) 


TSTO16s MOVE 016,00TSTNUM 


MOV 


16s 1687 


283 J8R 


615, 00TSTNUM 


(RS) 
PC, WAITRDY 


996 
PC, REVRD 
(RS) 


PC, WAITROY 
O36 


pC, READ 
pC, TIMON 
(RS) 
TCCRS) 

36 
TIMER(R3) 
pC, WAITRDY 
996 


PC, TIMOK 
1666 


016,R2 
PC, WRITE 


(RS) 
pC, WAITROY 


28 
TIMERCR3) 
pC, WAITROY 


pSET RETURN PC FROM TIMER 
sWRITE A RECORD 

9SET °GO* BIT 

pWAZT FOR READY 


pREAD A RECORD IN THE 
p8ET °GO* BIT 


pREAD RECORO FORWARD 
pTURN TINER OW 
s8ET °GO* BIT 
pWAIT FOR °ACCL® @ @ 


960 TO TIMER & RETURW VIA A2 


pSET RETURN PC FROM TIMER 
pWRITE A RECORD 
sSET °GO* BIT 


pOELAY 396 MS 

pREAD REVERSE RECORD 

TURN TIMER OW 

SET °GO* BIT 

pWAIT FOR FRAME COUNT > @ 
160 TO TIMER & RETURW VIA R2 
pWAIT For READY BIT TO SET 


pCHECK TINE 


Dé 








2002 611266 604767 174126 JSR pC, WRITE pURITE SECOND RECORD 

2003 611272 909215 Inc (RS) sSET °GO* BIT 

2004 011274 604767 173732 JBR pC, WAITRDOY pWAIT FOR READY 

2005 611300 102425 BYVS 998 

2006 611202 604767 174146 JSR pC, REVAD READ REVERSE SECOND RECORD 
2007 811306 005215 Inc (RS) s8ET °GO* BIT 

2008 811310 0604767 173716 JSR pC, WAITRDY gWAIT FOR READY 

2009 611314 102417 BVS 938 

2018 011316 604767 174132 JSR PC,REVRO pREAD REVERSE FIRST RECORD 
2011 011322 604767 173026 JaR PC, TIMON sTURN TIMER OW 

2012 011326 605215 rnc (RS) SET °GO* BIT 


2014 611338 605710 18s 7687 (Re) pWAIT FOR FRAME COUNT > @ 
2015 011332 901002 BNE a8 E6 
2016 011334 800163 004444 JUMP TIMER(R3) 960 TO TIMER & RETURN VIA R2 


0 
2 
a DETUDeC THO2 DRIVE FUNCTION TIMER MACY11 27(732) 1GeMAR©76 13906 PAGE 48 SEO 0070 
DETUDC P44 START OF TESTS 
a 1963 011124 104400 99s: = HLT 
1964 911126 194800 1008s sCOPE 
196 
@ 1966 TEST O170GAP SIZE (START HALF) 
1967 611130 112737 @80017 001122 TsT8171 HOVD 617,e0TSTNUN 
1968 011136 012702 011210 MOV =O 48» R2 SET RETURN PC FROM TIMER 
e 1969 011142 004767 174282 JER «PC, WRITE PWRITE A RECORD 
1978 011146 005215 rT (RS) 18ET °GO* BIT 
1971 @11188 604767 174086 JSR = BC, WAT TROY pWAIT FOR READY 
B 1972 011184 102427 avs = «(998 
1973 @11186 004767 174272 JER =—s- PC, REVRD PREAD REVERSE THE RECORD 
1974 011162 008215 INC (RS) s68T "GO? BIT 
Q 1975 @11164 084767 174042 JER =—s« PC, WAT TROY sWAIT FOR READY 
1976 011178 102621 Bvs) 22 PBRANCH OW ERROR 
1977 @11172 004767 173542 JSR = PC, DELAY sWAZT FOR TAPE MOTION TO STOP 
a 1978 11176 004767 174234 Jen = BC, READ PREAD RECORD 
1979 911262 004767 173146 JSR =—s« BC, TION sTURN TINER OW 
190s 911206 sesais INC (RS) s8ET °GO* Ort 
ad 1982 011218 008710 168 TST cre) pWAIT FOR PRANE Count > @ 
1963 011212 991002 eye 2⸗ 
8 1904 611214 600163 ee4ses UMP = FEWERCRD) 160 TO TIMER & RETURN VIA ar 
1988 
1986 011220 0046767 174006 20 JER = WC, WAT TRDY WAIT POR READY 
@ 1987 011224 102403 Bvs = «998 
1908 611226 0046767 173288 JSR =»: BC, TIMOK 1CHECK TINE 
1989 911232 seede: oF 1008 
8 1990 ‘ 
1991 011234 104400 996: = HLT 
1992 011236 104900 1008s © SCOPE 
@ 1993 
1994 STEST 020° GAP SIZE ( INTERRECORD) 
1998 sTHIG TEST MEASURES TINE FRON °GO°s1 TO °FC REG? >0, 
2 1996 911249 112737 900020 001122 TSTe2e: MOV 629, 0eTSTHUN 
1997 11246 612762 6113380 MOV = =—-s«046 RB SET RETURN PC FROM TINER 
1998 011252 004767 174142 JSR =: PC, WRETE pURITE A RECORD 
2 1999 011256 605215 tT (RS) 18ET °GO? BIT 
2000 911260 004767 173746 JSR = PC, WAI TROY sWAIT FOR READY 
2001 011264 102433 Byes = s«(998 
& 
& 
& 
9 
& 
0 


nny TS 











2074 


444 









7) 
& 
& DETUDeC THO2 DRIVE FUNCTION TINER WACY11 27(732) S8eMARC76 13206 PAGE 46 SEO 0071 
DzTUDC P11 START OF TESTS 
a 2019 011344 192403 Bvs 996 
2020 011346 004767 173130 TT PC, TINOK 
2021 011352 #0e4e1 BR 1008 
@ 2629 
2023 011354 104480 9983s HLT 
2024 011356 164080 1008: score 
8 2028 
2026 STEST O21¢ GAP CONSISTANCY 
2027 pTNIG TEST WEASURES TINE FROM °GO*%s1 TO °FC REG* > © 
@ 2928 STHE TEST REWINDS THE TAPE, WRITES 17 RECORDS WITH A DELAY FROM 1016 KS 
2029 pBETWEEN EACH WRITE COMMAND, AFTER THE 17, RECORDS ARE WAITTTEN THE 
2030 PROGRAM READ REVERSES 16 néconDs AT THIS POINT 9HE TAPE 18 STOPPED BEe 
@ 2031 sTVEEN THE FIRST AND RECORD. A READ COMMAND 18 EXECUTED TO READ 
2032 pTHE 46 RECORDS uiee oa 3 SETEWEN Geei TO FC > @ STORED IN *GAPTSL? 
2033 #FOR EACH RECORD READ, AFTER 16 RECORDS HAVE BEEN READ THE TINE 18 VER 
@ 2034 sIFIED FOR EACH READ, AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER© 
2035 pAGED AND PLACED IN THE °ATINTBL® (BY SCOPE), THE ABOVE PROCESS 16 REo 
2036 SPEATED FOR EACH ITERATION, 
203 
e 2038 011368 112737 66060021 001122 rTsTe2i: NOVB 021,00TSTHUN 
2039 011366 012702 011924 KOV 948,R2 s8ET RETURN PC FROWN TINER 
3 2048 011372 004767 173740 JSR PC, ,REWIND pREWIND gLAVE 
2041 911376 102530 Bvs 988 PORANCH IF ERROR OW REWIND 
2042 011400 605067 167510 CLR DELTIN pCLEAR VARIABLE DELAY TINE 
@ 2043 611404 012700 900023 MoV 017, ;8ET © OF RECORDS TO WRITE 
2044 011410 004767 174004 ies JSR pC, WRITE SWRITE 17, RECORDS 
2045 011414 005215 INC (RS) }8ET °GO* BIT 
a 2046 011416 004767 173610 JER PC, WAITRDY ;WAIT FOR READY 
2047 011422 102516 BvS 998 
2048 011424 604767 173340 JER PC, DELAYY pOELAY BEFORE WRITING NEXT REC, 
Q 2049 011430 0662767 900022 167456 ADD 018. ,DELTIN 98GT WEXT DELAY TIME 
2058 011436 0053090 pec Re sOECRENENT RECORDS WRITTEN COUNT 
2051 011440 001363 BNE 18 
@ 2082 
2083 011442 612708 000021 MoV 017, ,R0 pSET © OF RECS, TO REVERSE READ 
2054 011446 904767 174002 261 JER pC, REVRD PREVERSE READ 17, RECORDS 
6 2085 011452 005215 INC (RS) s88T °GO* BIT 
2056 011454 004767 173552 JSR pC, WAITRDY SWAIT FOR READY 
2087 011468 102477 BvS 998 
G 2088 011462 905300 pec Re )DECRENENT RECORD COUNT 
2059 011464 001370 BNE 28 
2060 
oe 2064 611466 612700 #600020 MOV 016.,,R0 98ET @ OF RECORDS TO READ 
2062 011472 012701 001054 MOV OGAPTBL, Ri 1SET PTR TO GAP TABLE FOR TEST 
2063 011476 004767 173734 Jar PC, READ pREAD A RECORD 
@ 2064 011502 905215 INC (RS) 1SET °GO? BIT 
2065 
2066 011504 9046767 173522 381 Jr PC, WAITRDY sWAIT FOR READY 
@ 2067 011810 102463 BvS 998 
2068 611512 0604767 173720 JSR pC, READ sREAD WEXT RECORD 
2069 011816 004767 172632 JER PC, TIMON STURN TIMER ON 
0 2078 011822 005215 INC (RS) :SET °GO* BIT 
2071 Fo 
2072 011524 605765 eecces 48s r87 FC(RS) )WAIT FOR FRAME CouNT > © 
re) 2073 911838 901082 BNE Ba 


el > ee ea — ——— — — 








0 
2 DETUDeC THOQ DRIVE FUNCTION TINER MACY11 27(€732) i1@eMAR©76 13306 PAGE 47 SEQ 6073 
DETUDE Pil START OF TESTS 
oS 2075 
2076 611836 6046767 173470 S83 JSR PC, WAITROY pWAIT FOR READY 
2077 011542 102446 avs 996 
e 2076 611844 610421 MoV R4,CRIDO pSTORE TINE IN GAPTBL 
2079 611546 6809300 DEC RO pORCRENENT © OF RECORDS READ 
2008 011880 001355 BNE 38 
@ 2001 
2062 611852 108037 601120 CURB @OGAP pSET GAP @ 6 
20603 6115386 612760 #800020 MoV 016,,R0 
& — 011562 812701 001084 MoV OGAPTBL, Ri 
2086 011566 612104 668 MoV CRI RE sGET GAP TICK Count 
@ 2067 611878 6046767 173016 JER pC, GAPOK sCHECK TINE 
2008 011574 108237 601120 tnce @eGaP gIRCRENENT GAP © 
2009 811600 122737 600020 0801120 CuPB 016,,00GAP pBRANCH IF ALL GAPS NOT CHECKED 
O — 011606 601367 BNE 68 
i 
2092 011610 612780 #980020 MOV 016,,R0 sSETUP TO AVERAGE GAP SISES 
@ 2093 011614 612701 601054 “OV OGAPTBL, Ri sSET PTR TO TABLE 
2094 6116260 805062 CLR R3 sCLEAR °gUN° REGISTERS 
2098 011622 605603 CUR Rr} 
é 2096 011624 662102 768 ADD (RIDO,R2 pADD ALL GAP SIZES TOGETHER 
2097 611626 605503 aoc R3 
2096 611638 6039300 bec RO 
o 2099 611632 001374 BRE 78 
2100 611634 612700 600004 MOV 04,R0 s4OW OIVIDOE BY 16, 
2101 611640 606203 Ges ASR r3 98¥ SHIFTING 4 PLACES RIGHT 
& 2102 611642 006002 ROA Ra 
2103 011644 809300 bECc Be 
2104 011646 0601374 ONE 66 
@ 2105 611650 610204 MOV R2,R4 sMOVE AVERAGED TIMES TO RE 
2106 611652 0604767 172624 JSR PC, TIMOK sCHECK AVERAGED TIMES 
2107 611686 600401 BR 1008 
@ 2108 
2109 611668 1044698 9968 MLT 
2118 611662 1046900 10668 SCOPE 
a 2111 
2112 17x87 O22eDUNMY TEST 
2113 sTHIG TEST MEASURES NOTHING 
@ 2114 611664 112737 ©00022 601122 T8T022: MOV 022,00TSTNUM 
2115 
2116 PTEST O2I@DATA TIME (200BPI) 
So 2117 pTHIG TEST MEASURES TIME FROM °FC REG* CHANGES To °RDY* si, 
2138 611672 112737 ©800023 6601122 1010220 MOVB 623, 00TSTNUM 
2119 @1170@ 612702 011752 MoV 036,R2 s8ET RETURN PC FROM TINER 
O 2120 011704 604767 173426 JSR PC, REWIND pREWIND SLAVE 
2121 611710 102437 BVS 996 sQRANCH If ERROR OW REWIND 
2122 @117132 6046367 173636 JER R3, THCKD pWRITE 690 WORD RECORD 
& 2123 611716 618700 WORD wtaur pSET WRITE BUFFER ADDRESS 
2124 011720 176340 WORD 8086, sWORD COUNT 
2328 011722 174700 WORD 916086, sPRAME COUNT 
9g 2126 611724 600060 e¥ORD wFrwo pWRITE COMMAND 
ee 611726 605215 Inc (RS) s8ET °Go* BIT Gb 
0 2129 88 022718 174700 168 Cup 0°1600,5(RO) sWAIT FOR FRAME COUNT TO CHANGE 


2 | 








0 
a 
Ps DETUD©C THO? ORIVE FUNCTION TINER WACY11 27(732) 18eMARC76 13306 PAGE 48 8E0 9673 
DETUDC, Pil START OF TESTS 
a 2131 611736 032711 6406000 Bit OERR, (RI) SMONZTOR ERROR BIT 
2132 011742 001022 BNE TT} 
2133 011744 990774 3h rT) 
3 2134 
2138 011746 268 
2136 011746 004767 172402 Jar PC, TINON STURN TINER OW 
®@ 2137 011782 108711 20 7678) Ss CRA) SWAIT FOR READY TO GET 
2138 011784 100402 ar _ 
2139 11786 600163 004444 oMD TINERCRS) 760 ro TIMER & RETURN VIA R2 
e 2140 011762 612708 eeeee) TY MOV 03,R0 p87 70 DIVIDE BY 8 
2141 011766 006204 S83 AOR Ba sOY SHIFTING RIGHT 3 PLACES 
2142 11770 905300 DEC Ro 
a 2143 011772 901378 Bue 
2144 011774 0046767 379232 JSR PC, WAITRDY 
2148 912008 102403 avs 998 
8 2146 012002 004767 172474 JSR PC, TINOK SCHECK TINE 
3147 012006 60040: BR 1008 
@ 2149 012010 1946400 9901 «= ML 
2180 012012 104000 1908s SCOPE 
i 
9 2152 STEST O24eDATA TINE (596BPI) 
2153 012014 112737 998024 001122 ts1T824* NOvS 924, 00TsTHUN 
2184 612022 812702 12162 nov 038,R2 pSET RETURN PC FRON TIMER 
0 2185 612026 004767 173304 JER PC, REWIND pREWIND SLAVE 
2186 012032 102442 avs 996 PORANCH If ERROR ON REWIND 
2187 012034 052768 eee7ee 000032 aiã ———— TCCRS) pLOAD TAPE CONTROL REGISTER 
e 215@ 012042 904367 173506 Jar R3, THCKOD PWRITE 2224, WORD RECORD 
2189 012046 0157069 »WORD « WTBUF 
2160 6120868 173520 SWORD 02224, 
@ 2161 012082 167240 “WORD «©4448. 
2162 012084 sees6e WORD wFND 
2163 012056 008215 inc (RS) s8ET °GO* BIT 
21 
o 2165 0120668 022710 167240 188 cup 0°4448,5 (RO) pORANCH WHEN WRITING BEGING 
2166 012064 901004 BNE 28 
8 2167 012066 832711 e4seese err ERR, (RI) pMONITOR ERROR BIT 
2168 012072 901022 BNE 998 
2169 012074 990771 BH 58 
G 2176 
2171 012076 268 
2172 012076 9046767 1722582 JaR PC, TINON sTURW TINER OW 
-s 2173 012102 105713 des 878) 3s (RA) PBRANCH WHEN READY SETS 
2174 012104 100602 BMI ry 
2178 012106 000163 eneees JMp TIMER(R3) 160 70 TIMER & RETURN VIA R2 
1 
o 2177 012112 612708 eseee3 46s MOV 03,R0 s8£T SHIFT COUNT 
2178 012116 906204 rT ABR Ra 
0 2179 012120 005300 DEC KO 
2180 012122 601378 HE $8 
2181 012124 9046767 473102 JER PC, WAITRDY 
0 2182 012130 102403 avs 996 
2103 012132 004767 172346 Jar PC, TINOK pCHECK TINE Ho 
2184 012136 seedes Be 1008 
oO 








DETUD9C THO2 ORIVE FUNCTION TINER 


012144 
012152 
012156 
012162 
012164 
012172 
012176 
012200 
012262 
612204 
012206 


612218 
012214 
012216 
012222 
012224 


012226 
012226 
012232 
012234 
012236 


012270 
012272 


012274 
612302 
012306 
012310 
012314 
012320 
012322 
012330 
012334 
012336 
012340 
012342 
012344 


START OF TESTS 


112737 
012702 
004767 
102442 
052765 
004367 
618700 
171600 
163406 
800666 
005215 


022710 
001004 
032731 
001022 
000771 


004767 
105711 
100402 
600163 


012700 
606204 
005300 
001375 
004767 
102403 
004767 
600401 


104460 
104000 


412737 
108737 
601046 
012782 
004767 


022718 
06100 


080025 
012232 
173184 


001300 
173356 


172122 


172782 
172214 


000026 
001127 


012376 
173016 


002300 
173220 


MACY13 27(732) 


1906: §©6scoPE 
pTEST G2SeDATA TIME (800BPT) 


061122 TsTe2Se MOVB 06025, 00TETNUN 
HOV @38,R3 
JSR PC, ,REWIND 
86 996 
000032 BIS OBPIOOOONORNI1, TCCRS) 
JSR R3, THCND 
eWORD wTaur 
e WORD ©3206, 
e¥ORD ©6400, 
e¥ORD wrod 
rac ¢RS) 
163 CMP 6°6400,. (RO) 
BNE as 
817 @ERR, (Ri) 
BNE 996 
8R 16 
283 
JSR pC, TIMON 
368 T8TB (Ri) 
BMI 48 
JMP TIMER(R3) 
48a MOV 03,R0 
56s ASR Re 
oEc RG 
BNE $6 
J&R pC, WAITRDY 
avs 998 
JSR pC, TIMOK 
BR 1668 
9988 HLT 
10068 6COPE 
sTEST O26eDATA TIME (1COOBPT) 
001122 TseTe26s MOVB 0026, 0eTSTNUM 
TST OONRZFLG 
BNE T8T027 
MOV 636,R2 
JSR PC. REWIND 
BVS 996 
000032 B16 @PE16O0@eNORM31,TCCRS) 
JSR R3,TMCMD 
e#ORD wraur 
@WORD ©3200, 
240 °6400, 
e WORD wrwo 
Inc (RS) 
168 Cup 0°6400,. (RO) 


1GeHAR©76 13:06 PAGE 49 


SEQ 0074 


9SET RETURN PC FROM TIMER 
pREWIND SLAVE 

pBRANCH IF ERROR OW REWIND 
s8ET Gee 801 

pWRITE 3200, WORD RECORD 


s8ET °GO* BIT 
pWAIT FOR WRITING TO START 
pMONITOR ERROR BIT 


pTURW TINER OF 
pORANCH WHEN READY SETS 


960 TO TIMER & RETURN VIA R2 
sSET SHIFT COUNT 


sCHECK TIME 


pSRANCH IF ORIVE °HRE ONLY? 


pSET RETURN PC FROM TIMER 
sREWIND SLAVE 

pORANCH IF ERROR OW REWIND 
SET 1600 BPI 

SWRITE 3200, WORD RECORD 


9SET °GO* BIT 
pBRANCH WHEN WRITING STARTS 


Le 


—— — — 


oꝛrod⸗e THE2 DRIVE FUNCTION riuta MACY11 27(732) 180MARCT6 13106 PAGE Se 8£Q 9078 
DETUDC P11 START OF TESTS 
2243 012384 032711 64606000 Bit ERR, (RI) sMONITOR ERROR BIT 
2244 012360 001017 ONE $98 
2248 012362 900771 an 16 
2246 
2247 012366 ast . 
2248 012364 006767 171764 JSR PC, TINON STURN TINER OW 
2249 012370 108713 360 787) (4) pORANCH WHEN READY SETS 
2258 012372 100402 Buz ae 
2281 012374 900163 004444 onp TIWERCRS) 960 £0 TIMER & RETURN VIA R2 
2253 612400 906204 46s ASR Ra pOLVIDE TINE BY ¢ 
2284 012402 906204 ABR Ré 
2285 012404 004767 172622 JSR PC, WAITROY 
2286 012410 102403 ave 996 
2257 012412 906767 172064 Jar PC, TINOK sCHECK TINE 
aase 012416 e004e; wi 1008 
8 
2266 012420 104400 9968 3s ML 
2261 612422 194000 1008s scope 
26 
2263 pTEST O27°ERASE 
2264 THIS TET NEASURES TINE FROM °GO*%es TO °RDY°eh, 
2265 012424 112737 900027 001122 187027: NOVD 027, 00TSTHUN 
2266 612432 612762 012460 NOV 018,R2 $8ET RETURN PC FROM TIMER 
2267 012436 004337 005554 JaR R3, OOTHCHD 
2268 612442 seesee eWORD  @ 
2269 012444 seeces sWORD — 
2278 012446 esesce SWORD 3 
2271 01248@ 990024 WORD ERASE 
2272 012482 904767 173676 San PC, TINON pTURN TINER OW 
2279 012456 003215 Nc (RS) p88T °GO? BIT 
2275 012460 108713 168 raro (R14) sORANCH WHEN READY sets 
2276 012462 100402 BME 28 
2277 912464 090163 o04ee4 IMP TIMERCR) 960 TO TIMER & RETURN VIA R2 
2279 012470 006767 172536 26% J8R PC, WAITROY 
2208 012474 10240) BvS 998 
2201 012476 004767 172000 JER PC, TIMOK 
2203 012502 900401 oR 1008 
228 
2284 012504 1046400 9968 = MLT 
220s 012506 194000 1906s SCoPE 
2287 STEST©O30 TAPE MARK 
2280 THIS TEST MEASURES TINE FROM °GO°=1 70 *RDY*e1, 
2209 012519 112737 90030 001122 1879301 MOVD  630,0eTSTHUM 
2298 012516 612702 612360 NOV 016,R2 1SET RETURN PC FROM TIMER 
2291 612522 084767 172672 Jar pC, WRITE pWRITE A RECORD 
2292 012526 005215 INC (RS) 18ET °GO* BIT 
2293 012530 904767 172676 Jar PC, WAITRDY ; 
2294 012534 102423 BvS 998 
2298 612536 004337 05554 JSR R3, OO THCHD * 
2296 012542 eWORD 6 G 
2297 012844 SWORD 6 








DETUD@C THO2 ORIVE FUNCTION TINER MACY11 27(732) 18eHAR©76 13506 PAGE 31 SEQ 0076 
OSTUDC Pil START OF TESTS 

2299 812588 600026 eWORD 8 wFMK 

2306 612552 004767 171576 JSR pC, TIMON STURN TIMER OW 

Seen 012586 095215 THC (RS) s6ET °GO* BIT 

2303 612568 108711 iss TeTS ¢R1i) pORANCH WHEN READY SETS 

2304 612562 100402 BMI ae 

2305 612564 600163 004444 JMP TIMERCR3) G0 TO TIMER & RETURN VIA A2 

2306 

2307 612570 604767 1724636 268 JSR pC, WAITRDY 

2308 612574 102403 BvSs 996 

2309 612576 604767 171708 JER pC, TIMOK 

cree 012602 690401 BR 1008 

2312 612604 104400 9968 HLT 

2313 612606 100683 

2314 612606 604767 172524 JSR PC, ,REWIND REWIND SLAVE 

2315 612612 102774 BvSs B95 pSRANCH IF ERROR OW REWIND 

2316 012614 104000 SCOPE 

2317 

Ko 











DETUDeC TNO2 DRIVE FUNCTION TINER MACY11 27(732) @eMAR©T6 13906 PAGE 52 oxo 0077 
DETUDC, P11 START OF TESTS 
2318 012616 012708 900012 FINISHs MOV 010,,R8 : )8ET LINE FEED CouNT 
2319 012622 ee00e4 001374 168 TYPE, CRLF 
2326 612626 008300 DEC 
2321 012630 001374 BNE 38 
2322 012632 0632777 eeei1ee 166140 bit 96006, oaun 
2323 012640 egicie ane a8 
2324 012642 113700 91004 MOVS = @OORVNUN, RO 
2325 012666 113701 01608 MOV © OOSLVNUN, Ri 
2326 012652 113702 01006 HOV OSL VPTR, AI 
. 2327 012686 900137 007216 Jue OeTYPHOR 
2320 012662 108237 001005 283 = INCB —s @OSL NUN SET WEXE SLAVE ¢ 
2329 012666 005237 001006 INC OOSLVPTR pAND 378 POINTER 
2330 012672 122737 @90010 ee100s CMPD 4s 88, , 88SLVNUN pORAWCH 3F LAST SLAVE (7) 
2331 012708 901402 BEG aa 
2332 012702 900137 006764 MP eesecrn pOEGIN TEST OW NEXT SLAVE 
2333 012706 105637 001008 20 CLRB 4s Oe SLYHUN p8ET SLAVE 00 
2334 012712 105237 001004 INCD ©. @ODAVNUN pAND INCREMENT ORIVE 6 
2335 012716 122737 @90010 010904 CHPB «88, OODRVNUN SAND CHECK IF LAST ORIVE 
2336 012724 901402 BEG neD 
2337 012726 990137 006766 Jue —RX 
2339 012732 108737 001125 END: 6T8TB © eeUNTFND pORAWCH IP A UNIT WAS POUND 
2340 612736 801006 BNE Tt 
2341 012740 Seeeed 014047 TYPE,£,UNIT 
005724 amp eomnrT 
2343 012758 eseeee 18s HALT 
2344 012752 094767 167012 Jer PC, exaun SCHECK FOR CHTL G 
2345 012756 eesees RESET 
2346 012768 900137 005724 gue eornrt sRESTART 


@®eeeeeeeeeeegeee#e8ee#e@ee20e8 @ 
BD 
oa 
& 
7 
a 
= 
BD 
~ 
& 
Ss 
ee 
ta 
~ 








7) 
@ 
e DETUDeC THO2 DRIVE FUNCTION TINER WACY13 27¢732) SGeHARCT6 13:06 PAGE 53 SEO 9078 
DETUDC, Pi! START OF TESTS 
a 2347 pSKEW TAPE TINING TESTS * 
2348 STHE FOLLOWING TESTS REGUIRE A SPECIALLY WRITTEN 090 BPI SKEW TAPE 
3349 012764 612737 012772 801002 skEVTETiNOV 0787031, 006CPADR GET SCOPE POTNTER 
ad 2383 STEST O3ie SKEW TAPE SPEED TESToFORWARD 
2382 PTHIG TEST READS 32° OF TAPE (26406,0000, © 25600, FRAKES), THEN 
@ 2353 sDIVIDES TINE BY 32, TO GET TINE TO READ 3° (000, FRAMES) OF TAPE, 
2384 12772 112737 ©00031 001122 T8T83is MOVE 031, 00esTHUN 
2388 913000 612702 013086 MOY 026,R2 )SET RETURN PC FRON TINER 
ao 2356 013004 004767 172326 JOR PC, ,REWIND SREWZND SLAVE 
2357 e13010 102441 BvS 698 BRANCH IF ERROR OW REWIND 
2388 013012 652768 601300 900032 ors ODPIOOGONORNAS, TC(RS)  j8ET 800 BPI 
oS 2389 013020 082768 00019 #60010 ers eBAI,C62(RS) pINHIBIT BUS ADDRESS INCARENENT 
2360 013026 064337 905584 JSR R3, OOTNCHD pREAD 32° OF TAPE°FORWARD 
2361 013032 019700 »WORD RDBUF 
9 2362 613034 177777 sWORD of, 
2363 613036 663448 1001 .WORD 26480, SFRANE Count 
2364 013040 essere WORD ROFWD 
a 2368 912063 908218 inc (RS) 18ET °GO° BIT 
2367 013044 0227168 901449 16s cup 0000, (Re) pWAIT POR FIRST 800 PRANES 
@ 2360 013050 101378 BHI is $70 BE READ 
: 
2370 013052 904767 171276 JR PC, TINON pTURM TINER OW 
@ 2371 013086 023710 013036 28s CMP 00108, (RO) SWAIT FOR READING ro FINISH 
2372 013062 103462 BLO Tt 
2373 #12064 980163 sesees ou TINER(R3) 1G0 TO TIMER & RETURN VIA R2 
3 
e 2378 013070 612700 sesces 383 MoV os, ao SOIVIOE TINE BY 32, 
2376 613074 666204 408 ASR R4 eo” 
@ 2377 013076 003300 DEC Be 
2378 913100 001375 BNE 48 
2379 013102 004767 172066 JSR PC, RNINIT pINIT DRIVE 
Ps 2300 013106 904767 171378 JER PC, TIMOK SCHECK TINE 
ane 013112 seedes BR 1008 
2 
e 2303 013114 104400 9960 2 MLT 
aed 013116 194080 1608s scope 
© 2306 }TEST @32°8KEW TAPE SPEED TESTREVERSE 
2307 1THIG TEST READS FORWARD 40° (32006, FRAMES) OF TAPE, THEN READS REVERSE 
2308 132" (26400,°000, © 25600, FRAMES) OF TAPE, THE TinE 18 THEN DIVIDED BY 
o 2309 132, T0 GET TINE TO READ 1° (00, FRAMES) OF TAPE, 
2398 013120 112737 900032 001122 1870321 MOVB 032,0eT8THUN 
2391 013126 612702 013284 Mov 036,R2 1SET RETURN PC FROM TIMER 
e 2392 013132 004767 172260 JR PC, REWIND pREWIND gLAVE 
2393 013136 102465 evs 995 sORANCH IF ERROR OW REWIND 
2394 013140 052768 601300 900032 Bis 0BPIOGO+NORNS1, TCCRS) 
e 2395 913146 052765 eseeie seecie Bis OBAI,CS2(RS) 
2396 013154 0094337 905554 Jar R3, COTNCHD DREAD FORWARD 32000, FRAMES 
2397 013160 915708 »WORD RDBUF : 
e 2396 013162 177777 sWORD ol, sWORD COUNT 
2399 012164 #876490 1008 «WORD «32888, SPRAME COUNT 
2400 813166 seee07e WORD RADFWD PREAD FORWARD Mo 
2401 013170 905215 Inc (RS) p8ET °GO* BIt 














OZTUDC Pil 


2403 613172 
2404 013176 
2405 

2406 613200 
2407 013204 
2408 013210 
240S 613216 
2410 0613224 
2411 613230 
2412 613232 
2413 613234 
2414 613236 
2415 613240 
2416 

2417 613242 
2418 412246 
2419 

2420 613250 
2421 013254 
2422 013260 
2423 613262 
2424 

2425 613266 
2426 613272 
2427 013274 
2428 613276 
2429 613300 
2430 613304 
2431 613310 
2432 

2433 013312 
2434 613314 
2435 613314 
2436 613320 
2437 613322 
2438 

2439 613324 
2440 

2441 

2442 





START OF TESTS 


023710 
101375 


004767 
604767 
052765 
052765 
004337 
015760 
177777 
663440 
000076 
603215 


022710 
193378 


004767 
623710 
103402 
000163 


012700 
806204 
005300 
001375 
004767 
004767 
060461 


104400 
064767 
102774 
184000 


800137 


013164 


171770 
171530 
001300 
000010 
005554 


001440 
171100 
013234 
004444 
000005 


171670 
171172 


172016 


012616 


DZTUD@eC TMO2 DRIVE FUNCTION TIMER 


000032 
000010 


MACY13 27(732) 


1188 


383 


483 


CMP 
BHI 


JSR 
JSR 
BIS 
BIS 
JSR 
» WORD 
»WORD 
»WORO 
» WORD 
INC 


CMP 
ont 


JSR 
CMP 
BLO 
JMP 


MOV 
ASR 
DEC 
BNE 
JSR 
JSR 
BR 


HLT 
JSR 
BVS 
SCOPE 


JMP 





1G°MAR@©76 13106 PAGE 54 SEQ 0079 
09108, (RO) 

i8 

PC,RHINIT pINIT ORIVE 

pC, DELAY pWAIT FOR TAPE MOTION TO STOP 
eBPI@OOeNORM11,TC(RS) sSET 800 BPI 

@BAT,CS2(RS) SINHISIT BUS ADDRESS INCRENENT 
R3,@eTMCMD #READ REVERSE 32° OF TAPE 
ROBUF #READ BUFFER 

el, sWORD COUNT 

26400, SFRAME COUNT 

ROREV #READ REVERSE 

(RS) sSET °GO* BIT 

6800,, (RO) sWAIT FOR FIRST 860 FRAMES 

28 9TO BE READ 

pC, TIMON sTURN TIMER ON 

e118, (RO) sWaIT FOR ALL FRAMES TO BE READ 
ae 

TIMER(R3) 1600 TO TIMER & RETURN VIA R2 
23, Ro sOIVIDE TIME BY 32, 

R4 

RO 

$$ 

PC, RHINIT 

PC, TIMOK 

10e8 

PC, ,REWIND pREWIND SLAVE 

99% sBRANCH IF ERROR ON REWIND 
OOFINISH 











DETUDeC TuO2 ORIVE FUNCTION TIMER 
PROGRAM MESSAGES 


DZTUDC pii 


2443 
2444 
2445 
2446 
2447 
2446 
2449 
2450 
2451 
2482 
2453 
2454 
2455 
2486 
2487 
2458 
2489 
2468 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2466 
2469 
2478 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2401 
2462 
2403 
2464 
2485 
2486 
2467 
4408 
2489 
2496 
2491 
2492 
2493 
2494 
2495 
2496 
2497 


013330 
013336 
013344 
013352 
013360 
013366 
013374 
013376 
013404 
013412 
013426 
013426 
013434 
013442 
613443 
0134508 
013456 
013464 
013472 
013500 
613505 
613512 
013820 
013524 
013532 
613540 
013546 
013554 
613562 
013564 
613872 
013600 
013606 
013614 
613622 
013625 
013632 
013640 
013646 
013654 
013656 
013664 
013672 


013676 
013704 


005ei1S 
042640 
043040 
047511 
642515 
052132 
900081 
80303 
643066 
040440 
051523 
647563 
646114 

eee 

124 
046524 
644822 
651447 
GE2382 
042524 

106 
030115 
053111 
026460 
620165 
620108 
647524 
642524 
000040 
630123 
642524 
047117 
054480 
620117 
024460 

116 
046116 
042531 
036440 
000051 
005015 
043117 
606505 





032524 
044522 
047125 
020116 
020122 
042125 


054524 
851111 
842104 
047440 
052116 
051168 


080131 
031060 
042526 
052040 
632040 
020104 
051117 
620062 
020105 
052040 
046123 
023443 
041040 
032123 


042505 
052123 
054514 
051505 
020075 

oos 
055122 
037531 
027523 
030440 


047105 
052040 
000012 


051124 
020104 

008 
020117 
047522 
24064460 
051104 
050123 
042811 





633061 
042826 
652163 
044524 
042050 
041455 


042520 
052123 
042522 
020106 
047522 
0200468 


052040 
051104 


050131 
053101 
020123 
020105 
042105 


020104 
026123 
020077 
047087 
027461 


047440 
024040 
047516 
030087 


020104 
050101 


050101 
047524 


047503 
046114 
020124 
051505 
041505 
066504 


MACY11 27¢€732) 


oe SBTTL 


1GeMAR©76 13506 PAGE $5 


PROGRAM MESSAGES 


sOPERATOR INSTRUCTIONS 


I,DRVSs ,ASCIZ 


1,6LV8s ,ASCII 


T,DRVe ,ASCIZ 


I,SKEWs ,ASCIZ 


I,NRZs ,ASCIZ 


M,EOTs ,ASCIZ 


pERROR MESSAGES 
E,TRP4s ,ASCIZ 


E,NCONs ,ASCIZ 


<CROCLFD>°TUIG DRIVE FUNCTION TIMER (DZTUD@C)”° 


<CROCLFD>°TYPE FIRST ADDRESS OF CONTROLLER ° 


QTYPE TM@2 DRIVE 0°S TO BE TESTED §& 


*FOR TMO2 DRIVE ° 


eG TYPE SLAVE 6°S TO BE TESTED 4 


*SPEED TESTS ONLY? (YES/NO @ 1/0)° 


*NRZ ONLY? (YES/NO e 1/70)° 


<CROCLFD>°END OF TAPE*<CR><LF> 


<CR><LF>°TRAPPED TO 4° 


°NO CONTROLLER AT ADDRESS SPECIFIED*<CR><LF> 


B? 








DETUDeC TMO2 ORIVE FUNCTION TIMER MACY11 27(732) 10eMAR©76 13306 PAGE S6 SEQ 6008: 
DETUDC ,Pii PROGRAM MESSAGES ; 


2499 613768 600012 

2508 613762 646524 631060 642040 E,NDRVs ,ASCIZ °TMO2 DRIVE ° 

2501 613776 644522 642526 000040 

2502 613776 051104 653111 620105 E,NSLVs ,ASCII “DRIVE ° 

2503 614004 620060 046123 0653161 E,DRVs ,ASCIZ °O SLAVE ° 

2564 614012 620105 

2505 814014 820060 647516 6260124 E,NAVAs ,ASCIZ °@ NOT AVAILABLE FOR TEST°<CR><LF> 
2506 14622 053101 6445601 040514 

2587 614630 646102 6261605 647506 

2508 614036 620122 642524 0652123 

2509 0614644 965015 066 

2518 614047 116 026117 0646524 E,UNITs ,ASCIZ °NO TH@2/TUIG UNIT FOUND TO TEST*<CRO<LF> 
2511 614054 631960 652057 630525 

2512 614062 620066 647125 682111 

2513 614070 643046 652517 642116 

2514 614076 652040 626117 642524 

2515 6141604 652123 #965015 eee 

2316 014111 123 043117 620124 E,SFTs ,ASCIZ ‘°SOFT ERROR (DATA) °<CR><LF> 

2517 614116 651105 047522 626122 

2518 014124 642056 0652101 624501 

2519 614132 605015 600 

2528 014135 124 051505 620124 E,HOR: ,ASCIZ “°TEST 6 ° 

2521 614142 620043 000 

2822 014148 040 042504 044526 £,HORis ,ASCII ° DEVICE ERROR°<CROCLFD> 

014152 642563 042448 651122 

2524 014168 651117 965015 

2525 014164 651503 664461 041527 eASCIZ °CE1°CHTD WC °CHTD “BAT CHTD FC CHT> °CE2Q°CHT>°DS°<HNT> ER’ <HTD*TC*<CRD<LF> 
2526 614172 641011 604501 641506 

2527 614200 041411 631123 042011 

2528 614206 604523 0651105 652011 

2529 614214 666563 600012 

2530 614220 647448 052125 647440 £E,HDR2: ,ASCIZ ° OUT OF RANGE ERROR*<CR><LF> 

2531 814226 620106 640522 043516 

2532 014234 0820105 651185 647522 

2533 014242 686522 000012 

2534 614246 665015 044524 642515 E,TIMOVs eASCIZ <CROCLFD>°TIMER OVERFLOWED* <CRDO<LF> 
2535 014254 620122 053117 851105 

2536 614262 646106 053517 6421065 

2537 014278 695015 eee 

2536 014273 @1S 052012 646511 E, TIMEX: eASCIZ <CROCLFD>°TIME EXPIRED WAITING FOR ROY°<CRD><LF> 
2539 6143008 620105 654105 644520 

2540 614306 642522 020104 6408527 

2543 614314 652111 047111 620107 

2542 614322 647506 620122 642122 

2543 014330 606531 0600012 

2544 014334 643440 050101 621440 E€,GAPs ,ASCIZ ° GAP @ ° 

2545 0614342 600040 


2547 sTIME DOCUMENT LINES 

2548 014344 625652 625052 625052 L,HORIE ,ASCIZ “vecccerevesessereseeeseseH SES HSeSeSSEOSSSSSSSOHHOHHSOOCTeoseereeereeos 
2549 014352 825052 625052 625052 

2558 614368 625052 625052 6825052 

2551 614366 625052 625052 0625052 c7 
2552 614374 625082 625052 625052 

025052 625052 625052 


SOS2 O2SO6 2 02508 rl ———— — — — — — — 












OZTUOC Pili 


2555 614416 
2586 614424 
2357 0614432 
25868 0144408 
2559 014446 
2868 614454 
2561 0614457 
2562 014464 
2563 814472 
2564 614500 
2565 614506 
2366 614514 
2567 614522 
2568 014524 
2569 014532 
2578 014536 
2571 014541 
2572 614546 
2573 014554 
2574 014566 
2575 614566 
2576 914574 
2577 0146062 
2878 0614610 
2579 014616 
2580 014624 
25861 614632 
2582 014640 
2563 

2564 014645 
2586S 0614652 
2386 614655 
2587 014662 
2506 

2569 

2598 614665 
2591 014672 
2592 0147008 
2593 0614706 
2594 014767 
2595 614714 
2596 014722 
2897 014727 
2598 614734 
2599 014742 
2608 014750 
2603 014751 
2602 614756 
2603 014764 
2604 614772 
2605 614775 
2606 615062 
2607 0159010 
2606 015016 
018017 


052 
042524 
620115 

060 

052 
042524 
052122 

652 
042524 
042124 

G08 


032040 
051104 
052506 
047117 
051505 
oS3111 


046123 
020043 

640 
041440 
051440 
000040 
025012 
052506 
047117 
042515 
©4438) 
044524 
044524 
052103 
006015 


047101 
000 
0521083 
060 


053440 
043040 
047562 


053440 
0514408 
004411 
053440 
0514408 
053517 


053440 
051440 
042105 

e608 
051640 
051106 
092117 


DETUD@C THO2 DRIVE FUNCTION TIMER 
PROGRAM MESSAGES 


030115 
053111 
041516 
032040 
020085 
020105 


0405106 
oSiies 


0eseis 
041516 
004411 
051480 
044506 
047117 
042515 
040525 


042507 
040525 


044522 
047522 
004524 


004516 


044522 
052165 
053517 


o4eses 
046517 
004411 


MACY31 27¢732) 


L,HOR2s 


L,DRV! 


L,SLVs 
L,CHAN? 


L,HOR3s 


L,RNGs 
L,ACTs 


ASCII 
ASCIE 


eASCIE 
eASCIZ 


1GeMARC76 13106 PAGE $7 SEQ 9082 


*@ THO2 ORIVE FUNCTION TIMESe DRIVE @ ° 


*@ SLAVE @ ° 
7° 


°9 CHAN, SER @ ° 


* S<CROCLFD°O°<CROCLFD 
%@ FUNCTION CHT><CHT>°TINE( SPECIFICATION) *<HTD>°TINE( ACTUAL) °<CRO<CLFD 


*RANGES<* 
*ACTUALS” 


pTEST DESCRIPTOR HEADERS 


A, TOOis 


A.T0023 


A,TOO4s 


eASCIZ 


eASCIZ 


eASCIZ 


ASCE 


*@ WRITE FROM BOT*<HT> 


*@ WRITE START’ <HT><HT> 


*e WRITE SHUTDOWN’ <HT> 
*@ WRITE SETTLEDOWN*<HT> 
*@ READ FROM BOT’ <HT><HT> 


D7 


*@ READ START°<HT><HT> 


— — — — — —— 








DETUD]@C THO2 ORIVE FUNCTION TIMER 
PROGRAM MESSAGES 


DETUDC Pil 





015032 
015036 
015044 
015082 
015060 
015066 
015074 
015102 
015103 
015110 
015116 
015124 
015125 
015132 
015140 
015146 
015152 
015160 
015166 
015174 
015201 
015206 
015214 
015222 
015230 
015232 
615240 
015246 
015254 
015262 
015263 
015270 
015276 
015304 
015311 
015316 
015324 
015332 
015340 
015346 
615354 
015362 
015370 
015376 
015404 
015412 
015413 
015420 
015426 
015434 
015437 
015444 
015452 
015460 
015463 
01847 


004824 
020052 
051440 
053517 
620052 
051440 
042105 

oee 

632 
020164 
052123 

eae 


052 
820104 
644123 
047127 
020052 
051040 
052108 
08317 

52 
020116 
042116 


000011 
042522 
032810 
004516 
042522 
052108 
083517 


651040 
042822 
051101 


051040 
042522 
032125 
000011 
042522 
053168 
046124 
604516 
032040 
051101 
@42048 
043040 


652524 
047522 
642504 
026522 


943448 
@55111 
050117 
004506 
043440 
055111 
051101 
043114 
040507 
042532 
051165 
042122 
040507 
051516 
041516 


0420408 
044524 
030060 

eee 


042101 
042124 
0606011 
042161 
046124 
004516 


040505 
020126 
004324 


040505 
020126 
047504 


042101 
051440 
042105 

600 
051125 
032517 
646105 
051055 


047122 
047125 
040514 
004506 


050101 
026505 
044040 

eae 
050101 
026505 
020124 
000011 
020120 
044455 
042522 
000011 
020120 
051511 
004531 


052161 
042515 
050102 


052101 
042515 
030102 


MACY11 27¢732) 


A, T0073 


A. T0168 


A,TO11s 


A, T0123 


A. T0138 


Ac TO148 


AeTO1S8 


A,TO168 


A,TO178 


A, T0208 


a. 70211 


A,roa2⸗ 


A,T02438 


eASCIEZ 


eASCIEZ 


eASCIEZ 


eASCIE 


eASCIZ 


eASCIZ 


eASCIZ 


IGoMARC7T6 13806 PAGE SO 


READ SHUTDOWN °<HT><HT> 


READ SETTLEDOWN°<HT> 


READ REV START°<HT>D 


READ REV SHUTDOWN *<HT> 


READ REV SETTLEDOWN*<HT> 


TURN AROUND DELAY FeR°<HT> 


TURN AROUND DELAY ReF’<HT> 


GAP SIZE°STOP HALF °<HT> 


GAP SIZE°START HALF *<HhT> 


GAP SIZE°INTERRECORD*<HT> 


GAP CONSISTANCY°<HT> 


DATA TIMEc2O0BPI °<HT> 


DATA TIME*SS68P1°<KT> 


DATA TIME©SeOBP1°<HT> 


E7 








DETUD9C TNO2 ORIVE FUNCTION TIMER MACY11 27(732) 18eMAR©76 131306 PAGE 59 SEQ 0004 
DETUDC Pil PROGRAN MESSAGES — 


2667 615476 634088 630066 650162 

2668 615504 604511 8686 

2669 015507 052 642040 652101 A,TO026s ,ASCIZ °® DATA TINEo{6008P1°<HT> 
2678 615514 0820101 644524 642515 

2671 @15522 630455 0630066 641060 

2672 615530 044520 000011 

2673 615534 620052 0651165 651501 A,T027s ,ASCIZ °@ ERASE GAP TINE*<HT> 
2674 815542 620108 646507 620120 

2675 618350 844524 642515 800011 

2676 6159586 820052 651127 652111 A,TO308 ,ASCIZ °@ WRITE FILE MARK*<HT> 
2677 619964 620105 644506 642514 

2678 619972 046440 651101 604913 

2679 019660 809 

2600 015601 052 052040 050101 A,TO3is ,ASCIZ ° 
2661 015606 620105 0650123 642505 

2682 015614 626504 653506 604504 

2683 0615622 eee 

26604 615623 052 052040 050161 A,T032: ,ASCIZ °© TAPE SPEED@REV*<HT> 
2685 615638 626105 650123 642505 

2686 615636 626504 642522 604526 

2687 615644 668 


2689 615645 @1S 0657012 0800107 L,CNTG: ,ASCIZ <CRO<LF>°°G" 
2696 615652 605015 0653523 636522 L,SWRt ,ASCIZ <CR><LF>°SuRe° 
0156608 830 

2692 615661 040 047640 053505 L.WEWs ,ASCIZ ° NEWe ° 

2693 015666 820075 00e 

2694 015671 O15 037412 805015 L,QuUESTs eASCIZ <CROCLFD>°?°CCROCLFD 
2695 0615676 650 

2696 615700 oCVEN 

2697 015700 ROBUFs, 

2696 015700 wTeUrs, 

2699 615708 900200 eBLKW 126, 

2700 990001 END 


TAPE SPEEDF UD’ <HT> 








DETUD]eC THO2 ORIVE FUNCTION TIMER 
DZTUDC P11 


SYMBOL TABLE 


CNTRLOS 000017 
CNTRLUS 080025 
CNVDEC 0602736 
CNVOCT 002622 
CNVTAO 603260 
CNVTD 002742 
CNVTO 992634 
COUNT 001764 
Cr S 900015 
CRLF 001374 
CsITM s 962000 
csi 8 900000 
cs82 Ss sw «4990010 
DASH 0014065 
bea S 600022 
DCONST 603036 
DELAY 604740 
DELAYVY 004778 
DELTIN 001114 
DIGTAB 001132 
DIVIDE o03026 
OLT so 190000 
DPR e 4000400 
DRIVES 606140 
DRVAVA 905116 
DRVNUM 901004 
ORVTBL 901154 
ORY 8 900200 
ORYCLRE 000010 


os S 000012 
oT & 900026 
OTE s 610000 
OVA 8 004000 
ove s g000ee 
OVi =s 800001 
DV2 «8 600082 
DV} — 980003 
Dv4 §=6s 900004 
DVS = eesees 
DV6 8 900006 
DV? so 900607 


ECHO 001401 
EMTVECe 600030 
END 012732 
cOoT s 982000 
ER 8 600014 
ERASE s&s 900024 
ERFLG 001123 
ERR 8 040000 
ERRTRP 003650 
ERRVECe 900004 
£,OrvV 014004 
E,GAP 014334 


MACY31 27¢732) 


1GeHARCT6 


013443 
013625 
013376 
013564 
013505 
000012 
177546 
000100 
177516 
177814 
014655 
014541 
015645 
014524 
014344 
014457 


L,WORD 014860 
L,wEw 6018664 
L,QUES 619671 
LANG 014648 
L,SL¥ 614836 
L.SwR 018682 


PAT 8 600028 
Pec 20000007 
PEFLRCe 8600200 
PEs 8 600040 
PEI600e 902600 
PFVEC s 600024 
PGE =6s 602000 
PIP 8S 020000 
PIRQ o 477772 
PIRVEC® 000240 
PLKCer® 173540 
PLKVECS 8600104 
PRGFLG 001124 
PSEL «© 902000 
Paw eo 177796 
PUBLIG 0063346 
ROBUF = 015700 
ROFUD & 869070 
RDREV © 900076 
rogw 001766 
RDY 8 000200 


READ 8838436 
RESVEC® 9000108 
REVRD 6809454 
RHINIT 9051746 
RMR 6s 000004 


8838868906 
Ri 28600661 
Ri8 —90000000 
Ria —8ο—οον 
Ri2 99900002 


Ra shosaead 
RS staogead 
ac es 100800 
SCOPE @ 104000 


8u06 6§ 9081008 
s¥e7 —5 600200 
Sues © g004e0 
sued © 061000 
sie © 962000 
8413 0 6040060 
suid) © 620000 
suid s 840000 


G] 





DETUD9-C THO2 DRIVE FUNCTIO 
DETUDC Pil SYMBOL TAB 


swiss 100000 
TAP 8 940600 
TBITVEs 960014 
te 8 800032 
TCRLF 002360 
TEMPST 001762 
TI8 001760 
TIMER 004444 
TIMERR 0044394 
TIMERO 004470 
TIMER] 004420 
TIMOK 004502 
TIMON 004354 
TKR so 177562 
TKISR 063606 
TKS se 177560 
TKVEC s 6090060 
TMBASE 001016 
TMCMD 6805554 
TMCSi1 & 172440 
® S 616300 


ERRORS DETECTED: © 
DEFAULT GLOBALS GENERATED 


RUNCTINEs 10 16 1 SECONDS 
RUN@TINE RATIO’ 62/2002 ,2 
CORE USEDs 7K (13 PAGES 


WN TIMER 
LE 


TMK =) 
TPB 8 
bi] a | 
TPVEC @ 
TRAPVES 
TRE a 
TRIVECS 
TSTNUN 


ecaee4 
177866 
177864 
000064 
806034 
8968068 
800014 
001122 
007336 
007422 
007800 
807370 
007676 
007762 
918046 
010146 
O16266 
010364 
010474 
010634 


@DSKMsDETUDC, DETUD/SOLADSEKMSDZTUDC PII 


MACY11 27(732) 


187018 
787016 
187017 
7070260 
107021 
787022 
T8T023 
787024 
r78r7028 
T8T026 
787627 
T8T630 
78Te31 
T8Te32 
TTI" 
TTINs 
TTIN2 
TYPoEC 
TYPc s 
TYPES 


010726 
011034 
011130 
011240 
011360 
0116646 
011672 
012014 
012144 
012274 
012424 
012510 
012772 
013120 
002242 
002262 
082276 
002736 
000804 
002352 


IGeMAR©76 13306 PAGE 62 


H7 


